Составить программу и блок схему (pascal). найти сумму от 1 до р кратное 3

Question

Информатика: Составить программу и блок схему (pascal). найти сумму от 1 до р кратное 3

nastya2631 · Answer

Объяснение:var p,i,s:integer; begin readln(p); s:=0; for i:=1 to p do  if i mod 3 =0 then s:=s+i;  writeln (s);  end....