Найти сумму целых положительных чисел, больших 20,меньших 100 и кратных 3.Паскаль. Оператор цикла с параметром FOR срочно, пожалуйста
Найти сумму целых положительных чисел, больших 20,меньших 100 и кратных 3.Паскаль. Оператор цикла с параметром FOR срочно, пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьvar a,x,b:integer;
begin
for a:=20 to 100 do
if a mod 3 = 0 then x:=x+a;
writeln(x);
end.
Не нашли ответ?
Похожие вопросы