Ребят, помогите, пожалуйста, написать программу в pascal!!!
5-9 класс
|
Найти сумму первых двадцати натуральных чисел
Program S1;
var
a,n,i,sum:integer;
begin
write('Введите N:');
readln(n);
sum:=0;
i:=0;
repeat if not(odd(a)) then sum:=sum+a;
i:=i+1;
write('Введите ',i,'-е число:');
readln(a);
until (i=0) or (i>=n);
writeln(sum);
readln;
end.
Вроде так, вместо n вводишь 20
Другие вопросы из категории
нужно составить из букв слова:
аскстеа
акжкин
секдиат
чевистерн
ввести три числа и найти наибольшее из них.
вставьте пропущенные слова
1) Сообщение ,,. , если оно выражено на языке , доступным для получателя .
2) Логическое познание Это ,,,,, (только одно слово)
3) Сообщение,,,,,,, является информативным для человека, если оно обладает такими характеристиками , как ,,,,,,,,,, и понятность ,
помогите пожалуйста если не трудно!!!!!!
Вычислить сумму чисел: S=К+(К+1)+(К+2)+(К+3)+…+(К+N); (N<N).
Вычислить среднее арифметическое чисел K,K+1,K+2,…,K+N; (K<N).
Вычислить произведение чисел: P=N*(N+1)*(N+2)*(N+3)*…*(N+R); (N<R).
Вычислить: P=1+(1*2)+(1*2*3)+(1*2*3*…*R).
Вычислить: P=1*(1+2)*(1+2+3)*(1+2+3+…+R).
Найти значения функции M=N2-N при N={2,4,6,…,T} (T-четное).
Найти значения функции X=Y2 *(Y2 -Y)/Y при Y={N*1,N*2,…,N*M} (N<M).
Мне необходимо составить алгоритм каждой буквы : н,у,р,л,а,н
Примерно алгоритм выглядит вот так- Поднять перо. Сместиться в точку.Опустить перо.Сместиться на вектор.
Составьте хотя бы алгоритм буквы Н
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
1)Написать программу которая меняет местами числа a и b(линейная и оператор присваивания)
2)Программа проверки существования треугольника по его 3 сторонам
Напишите пожалуйста***
вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.
Определение факториала:
0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.
Другими словами n!- это произведение n натуральных чисел.
пользователем данных и в случае, если коэффициент при второй степени неизвестного равен нулю, выводить соответствующее сообщение.
Помогите, пожалуйста, написать программу для Turbo Pascal или просто алгоритм.