Пацаны , кто шарит в пайтоне сделать счёт 1000-7 до - 1, а то разобраться не могу - id2075697920221121 от marinakomarova 21.11.2022 22:43

Question

Информатика: Пацаны , кто шарит в пайтоне сделать счёт 1000-7 до - 1, а то разобраться не могу

marinakomarova · Accepted Answer

program z1;

var a,b,k,i:integer;

begin

k:=0;

write('Ââåäèòå êîîðäèíàòó à: ');

read(a);

write('Ââåäèòå êîîðäèíàòó b: ');

read(b);

for i:=a to b do begin

if i mod 3=0 then begin

writeln(i);

k:=k+1;

end;

writeln('Количество чисел кратных трём равно ',k);

readln;

end.

Пацаны , кто шарит в пайтоне сделать счёт 1000-7 до - 1, а то разобраться не могу