Сделйте блок схему программы через for, пожалуйста! Целое число n вводится с клавиатуры. в диапазоне [10;-10] найти сумму и колоичество чисел, кратных n.
можно использовать массив?
помоги пожалуйста мне с вопросом плиз!!!
нет, только if
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.
Стой, я сейчас изменю немного
все
там я подправил в конце, а так все верно