Вывод чисел

[AlterNatioN]

Сообщение от Loky

var
i,n: integer;
begin
for i:=0 to n do begin
s:=inttostr(i);
if (s[length(s)]='4') or (s[length(s)]='6') then writeln(s);
end;
end.
TwiX я чуток поправил что бы ctrl+c ctrl+v можно было делать

fail. у тебя s не определена(как строка?), нету ввода переменной n, ну, и в начале program NAME; нету.
-
функции inttostr, s[length(s)] явно не для новичка.) можно сделать прогу куда проще, через дивы, моды.

[AlterNatioN]

program gergef;
uses crt;
var i, s, n : integer;

begin

clrscr;
readln(n);
for i:=0 to n do
begin
n:=i;
while n>10 do
n:= n mod 10;
if (n=4) or (n=6) then
writeln(i);
end
end.

сделал, чтобы слегка попрактиковаться.

Ввод: 25
Вывод:
4
6
14
16
24
Оно?