var
k, i, n, x: integer;
begin
readln (n);
k := 0;
for i := 1 to n do
begin
readln (x);
if (x mod 10 = 4) and (x mod 6 = 0) then
k := k+1;
end;
writeln (k);
end.
Var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=3*i;
Write(a[i],' ')
end;
Writeln
end.
В (1) все правильно, а в (2) ошибка: при g/5 получится действительное число и его нельзя записать в g, т.к. g определена для целых чисел.
Ну я думаю иконка, но честно говоря вопрос странный
Потому что архивторы работают не со всеми типами файлов