Напишите программу, которая определяет, верно ли, что введённое число состоит из одинаковых цифр. (ABC pascal)

Question

Информатика

Захария

17 июня, 16:17

Напишите программу, которая определяет, верно ли, что введённое число состоит из одинаковых цифр. (ABC pascal)

+4

Ответы (2)

Знаете ответ на вопрос?

Таисья · Answer 1

Var number:integer;

digit:integer;

res:boolean;

begin

readln (number) ;

digit:=number mod 10;

number:=number div 10;

res:=true;

while number>0 do begin

if digitnumber mod 10 then begin

res:=false;

break;

end;

number:=number div 10;

end;

if res then writeln ('Верно') else writeln ('Неверно') ;

end.

Савелла · Answer 2

Var x, x1, k, s:integer; d:real;

begin

readln (x) ;

k:=0; s:=0;

while x>0 do

begin

x1:=x mod 10;

k:=k+1;

s:=s+x1;

x:=x div 10;

end;

d:=s/k;

if d=x1 then writeln ('Верно')

else writeln ('Неверно') ;

end.

x-вводимое число, x1-каждая цифра, k-кол-во цифр, s-сумма цифр, d-среднее арифметическое цифр