Question

Сделйте блок схему программы через for, пожалуйста!

Целое число n вводится с клавиатуры. в диапазоне [10;-10] найти сумму и колоичество чисел, кратных n.

Answer 1

var n,k,sum,i:integer;
begin
readln (n);
if (n<10)and(n>-10) then
for i:=1 to 10 do begin
if n mod i=0 then
sum:=sum+i;
k:=k+1;
end;
writeln(sum, ' ', k);
end.