Предмет: Информатика,
автор: Valeria95r59
Pascal
Найти сумму всех двухзначных чисел, которые кратны трём.
Ответы
Автор ответа:
0
uses crt;
var ,c,k:integer;
begin c:=0;
for k:=10 to 99 do
if (k mod 3=0) then c:=c+k;
write(c);
end.
var ,c,k:integer;
begin c:=0;
for k:=10 to 99 do
if (k mod 3=0) then c:=c+k;
write(c);
end.
Автор ответа:
0
uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
end.
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
end.
Похожие вопросы
Предмет: Математика,
автор: zorkinglaz
Предмет: Английский язык,
автор: Dotkaplustwoys
Предмет: Қазақ тiлi,
автор: mturginbay
Предмет: Литература,
автор: гнгн