Я знаю что сказать,я знаю что купить, я знаю что Одеть.
я знаю как решить , я знаю как построить, я знаю как одеть
<span><em>Pascal ABC</em>
var x:integer;
begin
writeln ('Введите четырёхзначное число');
readln(x);
if (x div 1000 <> 0) and (x div 10000 = 0) then begin
if ((x div 100)=(x mod 100)) or (((x div 1000)=(x mod 10)) and (((x div 100) mod 10)=((x mod 100) div 10))) then
writeln ('Является перевёртышем') else
writeln ('Не является перевёртышем');
end else writeln ('Неверный ввод');
end.
</span><span>
</span>
Ошибка которая вызывает проблемы
Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>