В последовательности натуральных чисел посчитать сумму всех чисел,кратных 4 и оканчивающихся на 8. Числа от 0 до 100Использовать цикл.
В последовательности натуральных чисел посчитать сумму всех чисел,кратных 4 и оканчивающихся на 8.
Числа от 0 до 100
Использовать цикл.
Гость
Ответ(ы) на вопрос:
Гостьvar
sum, c : integer;
begin
sum := 0;
while not eoln do
begin
read (c);
if (c mod 10 = 8) and (c mod 4 = 0) then sum := sum + c;
end;
write (sum);
end.
ГостьProgram asd;
USES crt;
Const n=100;
VAR A:array[1..n] of integer;
i,s:integer;
BEGIN
s:=0;
For i:=1-1 to n do
begin
Write(i:4);
If (i mod 4=0) and (I mod 10 in[8]) then
begin
S:=S+i;
end;
end;
Writeln;
Writeln(S);
END.
Вот так
Не нашли ответ?
Похожие вопросы