Предмет: Информатика,
автор: 10kek
(35 БАЛЛОВ ИЗИ ЗАДАНИЕ!)
Написать программу вычисления суммы всех нечетных двузначных чисел
Написать 3 программы!
Через: 1)while 2)repeat 3)for
Ответы
Автор ответа:
0
Ответ:
Объяснение:
var i,s:integer;
begin
i:=10;s:=0;
for i:=10 to 99 do
if i mod 2<>0 then s:=s+i;
writeln('Сумма нечетных 2-значных чисел(for)',s);
readln;
i:=10;s:=0;
while i<=99 do
begin
if i mod 2<>0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма нечетных 2-значных чисел(while)',s);
readln;
i:=10;s:=0;
repeat
if i mod 2<>0 then s:=s+i;
i:=i+1;
until i>99 ;
writeln('Сумма нечетных 2-значных чисел(repeat)',s);
readln;
end.
10kek:
Спасибо:)
Похожие вопросы
Предмет: Химия,
автор: pvlff14
Предмет: Алгебра,
автор: Аноним
Предмет: История,
автор: artem2021hasp
Предмет: Математика,
автор: ksenia2283
Предмет: История,
автор: Sasha3Beautuful