Предмет: Информатика,
автор: shapkindima201
1 вывести на экран все трехзначные числа кратные 50
2 найти количество четных чисел начиная с числа 20 до 60
3 найти сумму нечетных чисел от 100 до 150
паскаль
Ответы
Автор ответа:
0
VAR
k: LongInt;
BEGIN
k := 50;
While (k < 1000) do begin
k := k + 50; Write(k, ' ');
End;
END.
VAR
kol, k: LongInt;
BEGIN
k := 20; kol := 0;
While (k <= 60) do begin
kol := kol + 1;
k := k + 2;
End;
Writeln(kol);
END.
VAR
sum, k: LongInt;
BEGIN
k := 101; sum := 0;
While (k < 150) do begin
sum := sum + k;
k := k + 2;
End;
Writeln(sum);
END.
k: LongInt;
BEGIN
k := 50;
While (k < 1000) do begin
k := k + 50; Write(k, ' ');
End;
END.
VAR
kol, k: LongInt;
BEGIN
k := 20; kol := 0;
While (k <= 60) do begin
kol := kol + 1;
k := k + 2;
End;
Writeln(kol);
END.
VAR
sum, k: LongInt;
BEGIN
k := 101; sum := 0;
While (k < 150) do begin
sum := sum + k;
k := k + 2;
End;
Writeln(sum);
END.
Интересные вопросы
Предмет: Русский язык,
автор: neimzz
Предмет: Русский язык,
автор: karimsaruarbek
Предмет: Русский язык,
автор: mauletovaailana2010
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: 12345qwertyuioptuyu