Question

определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7(в паскале авс) 

РЕБЯЯЯЯТ ОЧЕНЬ НАДО!!!

Answer 1

 

program del;

uses crt;

var chisla: array[1..15] of integer;

       n, i, k:integer;

begin

 clrscr;

 write ('Введите кол-во чисел: ');

 readln (n);

  for i:=1 to n do

   begin 

    write ('Введите 'i'-тое число: ');

    readln (chisla[i]);

   end;

  for i:=1 to n do

   if ((chisla[i] mod 3=0) and (chisla[i] mod 5=0) and (chisla[i] mod 7=0)) then

    k:=k+1;

  write ('На 3, 5 и 7 одновременно делятся ',k,' чисел.');

  readln;

end.

 

 

 

 

 

 

 У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.