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