в чём проблема?

[zetr0]

Введите 4-х значное число. выведите на экран число сотен и единиц числа.

вот попробовал сделать, но пишет ошибку. в чём дело?

var a,b,c:real;
begin
write ('введите 4-х значное число');
readln (a);
b:=(a div 100) mod 10;
c:=mod 10;
write ('число сотен =' b, 'число единиц =' c);
end.

[baster128]

var a,b,c:real;
begin
write ('введите 4-х значное число');
readln (a);
b:=a div 100
c:=a mod 10;
write ('число сотен =' b, 'число единиц =' c);
end.

[Mad_Cat]

вариант мой

var s:string;
begin
read(s);
write ('число сотен =',s[2], 'число единиц =',s[4]);
end.

вариант твой

b:=(a mod 1000) div 100;
c:=a mod 10;
write ('число сотен =',b, 'число единиц =',c);
end.

2baster128

ваш вариант кода для числа 1234
даст 12 сотен и 4 единицы

[zetr0]

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

вариант мой

var s:string;
begin
read(s);
write ('число сотен =',s[3], 'число единиц =',s[4]);
end;

вариант твой

b:=(a mod 100) div 10;
c:=a mod 10;
write ('число сотен =',b, 'число единиц =',c);
end

.

в лекции такого ещё пока что не было.

[Mad_Cat]

тогда забирай 2 вариант)

[zetr0]

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

тогда забирай 2 вариант)

всё равно пишет ошибку: Operand types do not match operator.

[Mad_Cat]

var a,b,c:integer;

[zetr0]

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

var a,b,c:integer;

thanks. такую ерунду упустил