Предмет: Информатика, автор: asavenya

Определить симметричность введенного четырехзначного числа если да вывести 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.  


Автор ответа: 2000vlados
0
зачем тебе переменная b?
Автор ответа: gfif19062001
0
убрать забыл
Похожие вопросы