Question

program chisla1234;
var a,b,c1,c,d1,d:integer;
begin
Writeln ('ведите число');
Readln (a);
b:= a div 1000;
c1:= a mod 1000;
Read (c1);
c:= c1 giv 100; <====ТУТ
d1:= c1 mod 100;
Read (d1);
d:= d1 giv 10;
Writeln ('Ответ = '
'Тысячи -' ,b
'Сотни -' ,c
'Десятки -' ,d);
end.

Выдаёт ошибку в паскале что ожидалось ; а встречено giv (пометил в какой строке ошибка словом <=====ТУТ)

Answer 1

Ответ:

Попробуй вместо giv написать div

Объяснение: