Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal

Question

Информатика

Маланья

19 апреля, 22:19

Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal

+5

Ответы (1)

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

Ярополк · Answer 1

Program Test;

var

a: array [0 ... 3] of integer;

c: integer;

begin

for c : = 0 to 3 do

begin

read (a[c]) ;

end;

if a[0] = a[3] then

begin

if a[1] = a[2] then write ('1') else write (random (100))

end;

end.