Подсчитать сумму всех четных чисел от 300 до 400.(паскаль)
Вывести на экран все трехзначные числа,кратные 8
ПОМОГИТЕ ПРОШУ
Ответы
Ответ дал:
0
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
Ответ дал:
0
Что всегда в Паскале раздражало, так это отсутствие в цикле for шага, отличающегося от 1 или -1
Ответ дал:
0
Это точно.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад