Напишите программу которая определяет Верно ли что введенное число состоит из одинаковых цифр
Паскаль
Ответы на вопрос
Ответил dododo
0
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.
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.
Ответил КСеня1106
0
У меня выводит что нужно do перед :=
Ответил КСеня1106
0
Где s:=0
Ответил Аноним
0
Единственный минус у Вас в программе - она не работает с отрицательными числами
Новые вопросы