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

Question

Информатика

Федяня

27 октября, 22:21

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

+3

Ответы (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.