Кирсан
5 год назад
Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal
ОТВЕТЫ
Lilyana
Oct 24, 2020
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.
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.
907
