Информатика, вопрос задал milkPeach6 , 2 года назад

Помогите пожалуйста, очень нужно

Приложения:

Ответы на вопрос

Ответил fovfabomi
0

var

a,n,k,i:integer;

begin

 writeln('введите количество чисел');

 readln(n);

 for i:=1 to n do

 begin

   writeln('введите число');

   readln(a);

   if (a mod 3=0) and (a mod 10 =5) then k:=k+1  

 end;

 writeln(k)

end.


milkPeach6: А можно для программы Кумир?
fovfabomi: Извини, я не знаю эту программу
Новые вопросы