Question

Напишите программу которая определяет Верно ли что введенное число состоит из одинаковых цифр
Паскаль

Answer 1

var z,a,s:integer;
begin
readln(z)
a:=z mod 10;
z:=z div 10;
s:=0;
while (z>0) and (s=0) do
if z mod 10<>a then s:=1
else z:=z div 10;
if s=0 then write ('yes')
else write('no');
end.

Answer 2

У меня выводит что нужно do перед :=

Answer 3

Где s:=0

Answer 4

Единственный минус у Вас в программе - она не работает с отрицательными числами