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

Question

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

Мария

Найти сумму всех двузначных чисел, кратных k.Прошу вас, решииииитееее!!!!
только в Pascal обязательно, с блок-схемой, если можете
хотя бы на листке решите, сфоткайте и пришлите
ПОЖАЛУЙСТА!!!!

Есть ответ

17.12.2022

216

Ответ

Answer 1 · 17.12.2022

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;

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

Ответ

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;

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;