Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal
Ответы на вопрос
Ответил gfif19062001
0
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.
Ответил 2000vlados
0
зачем тебе переменная b?
Ответил gfif19062001
0
убрать забыл
Новые вопросы