Сделйте блок схему программы через for, пожалуйста!
Целое число n вводится с клавиатуры. в диапазоне [10;-10] найти сумму и колоичество чисел, кратных n.
Целое число n вводится с клавиатуры. в диапазоне [10;-10] найти сумму и колоичество чисел, кратных n.
More Questions From This User See All
Answers & Comments
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.