Напишите программу через for, . найти в дипазоне [40; - вопрос №40709002006 от karinabarakh 07.06.2021 13:49

Question

Информатика: Напишите программу через for, . найти в дипазоне [40; 70] сумму чисел, которые делятся на 5 с остатком 1

karinabarakh · Answer

Program qq;var a,b,sum:integer;BEGINsum:=0;for a:=40 to 70 do beginif a mod 5=1 then sum:=sum+a;end;writeln(sum);END....