Срочно! Написать программу на Pascalе

Question

Срочно! Написать программу на Pascalе

Ростислав Смирнов Ученик (106), открыт 2 недели назад

напишите программу которая в последовательности натуральных чисел определяет количество чисел, НЕ кратных 3 и оканчивающиеся на 8. программа должна вывести одно число: количество чисел, не кратных 3 и оканчивающиеся на 8

Answer 1

program CountNotMultiplesOfThreeEndingInEight;
var count: integer;
begin
count := 0;
for i := 1 to 100 do
if (i mod 3 <> 0) and (i mod 10 = 8) then
inc(count);
writeln(count);
end.

Answer 2

напишите программу

Написал. Че дальше?

Answer 3

 program P; 
var a,c:longint; 
begin 
  c:=0; 
  while not eof do begin 
    read(a); 
    if (a mod 3<>0) and (a mod 10=8) then inc(c); 
  end; 
  writeln(c); 
end.