Ответ: 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; end; writeln(‘Количество чисел кратных трём равно ‘,k); readln; end.
Ответ: Сории, комментарий в программе плохо копировался
Ответ:
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;
end;
writeln(‘Количество чисел кратных трём равно ‘,k);
readln;
end.