Предмет: Информатика,
автор: sabinamalina
1)Составить программу(паскаль) вывода на экран всех нечетных двухзначных чисел. 2)составить программу вычисления суммы всех трехзначных чисел, кратных 5
Ответы
Автор ответа:
0
1)
var
i: integer;
begin
for i := 10 to 99 do
if i mod 2 = 0 then
write(i, ' ');
end.
2)
var
i, s: integer;
begin
for i := 100 to 999 do
if i mod 5 = 0 then
s := s + i;
writeln(s);
end.
var
i: integer;
begin
for i := 10 to 99 do
if i mod 2 = 0 then
write(i, ' ');
end.
2)
var
i, s: integer;
begin
for i := 100 to 999 do
if i mod 5 = 0 then
s := s + i;
writeln(s);
end.
Похожие вопросы
Предмет: География,
автор: merey030392
Предмет: Химия,
автор: drfgjhdfhfjh
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: География,
автор: selli