Найти сумму всех натуральных чисел, четных, кратных 7 и меньших 100.. Created by Ева16. informatika-ru

Найти сумму всех натуральных чисел, четных, кратных 7 и меньших 100...

August 2022 1 1 Report

Найти сумму всех натуральных чисел, четных, кратных 7 и меньших 100.

fikort Var
i,s:integer;
begin
for i:=1 to 100 do
if (i mod 7 =0) and (i mod 2 =0) then
s:=s+i;
writeln(s);
end.

1 votes Thanks 0

hardmad Оператор пустого ввода забыл

fikort не обязательно

hardmad По моему программа должна застопориться с помощью "readln"

fikort зависит от версии паскаля

fikort в паскаль abc readln не требуется

hardmad А операторные скобки в цикле?

fikort если в цикле одна команда скобки не требуются

Ева16 hardma, напишите как вы считаете правельным

hardmad А точно, сори