Составить программу вычесления суммы всех двухзначных нечетных чисел)))) Помогите пожалуста)))Очень срочно нужно))))Завтра нужно уже сдать))))Заранее
5-9 класс
|
спасибо))))
var i,s:integer;
begin
i:=11;
while i<100 do begin
s:=s+i;
i:=i+2;
end;
writeln(s);
end.
Другие вопросы из категории
Введите с клавиатуры 6 чисел, найдите сумму всех положительных и сумму всех отрицательных чисел. Выведите эти суммы на экран.
Помогите пожалуйста
б)if 0<x<2
then if y<1 then y=y+3 else y:=y²
else y:=sqr(y)
в)if 1<x<2
then
x:=x+1;y:=0;
else
x:=0;y:=y+1;
г)if 1<x and x>2
then begin x:=x+1;y:=0 end;
else begin x:=0;y:=y+1 end
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
буду благодарна.
чисел.помогите пожалуйста,очень надо!
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль