Найти сумму всех двузначных чисел, кратных вас, только - вопрос №424652 от Асентай 23.03.2020 03:02

Question

Информатика: Найти сумму всех двузначных чисел, кратных вас, только в pascal обязательно, с блок-схемой, если можете хотя бы на листке решите, сфоткайте и пришлите

Асентай · Answer

program zadacha;

uses crt;

var b,k,i: integer;

begin

writeln('vvedi k');

readln(k);

for i:=10 to 99 do begin

IF i mod k =0 then inc(b);

end;

writeln('kol-vo dvuxznachnix chisel kraynix k=');

write(b);

end;