Найти сумму всех двузначных чисел, кратных k.Прошу вас, решииииитееее!!!! только в Pascal...

Question

Найти сумму всех двузначных чисел, кратных k.Прошу вас, решииииитееее!!!!

только в Pascal обязательно, с блок-схемой, если можете

хотя бы на листке решите, сфоткайте и пришлите

ПОЖАЛУЙСТА!!!!

Answer 1

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;