** отрезке от a до b найти кол-во чисел кратных трём. (Составить решение задачи....

Question

На отрезке от a до b найти кол-во чисел кратных трём. (Составить решение задачи. Информатика. 8 класс. Pascal. Помогите, пожалуйста)

Answer 1

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.

Comments

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.

---

Сории, комментарий в программе плохо копировался