ОЧЕНЬ составте рисунок на координатной плоскости.который получится при выполнении програмы:
сместить в точку (1,1)
опустить перо
сместить в точку (1,4)
сместить в точку (2,1)
сместить в точку (3,4)
сместить в точку (3,1)

Question

Информатика: ОЧЕНЬ составте рисунок на координатной плоскости.который получится при выполнении програмы: *сместить в точку (1,1) *опустить перо *сместить в точку (1,4) *сместить в точку (2,1) *сместить в точку (3,4) *сместить в точку (3,1)

islamreal99 · 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.

MOGZ ответил