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

goldshell goldshell    3   20.03.2019 23:30    0

Ответы
ek72Wasdk ek72Wasdk  26.05.2020 10:59

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;

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика