Найдите сумму натуральных нечетных чисел не превышающих n!Сделать нужно циклом репид!
10-11 класс
|
var n,a,sum:int64;
begin
a:=1;
writeln('Vvedite n');
readln(n);
repeat
sum:=sum+a;
a:=a+2;
until(a>=n);
writeln(sum);
readln;
end.
Другие вопросы из категории
адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрус указанного файла в сети Интернет:
А) ://
Б) come
В) /
Г) .doc
Д) ftp
Е) net
Ж) doc.
Читайте также
суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
программу на Паскале пожалуйста помогите срочно