Предмет: Информатика,
автор: asavenya
Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal
Ответы
Автор ответа:
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.
Автор ответа:
0
зачем тебе переменная b?
Автор ответа:
0
убрать забыл
Похожие вопросы
Предмет: Математика,
автор: looooooooooooooll
Предмет: Экономика,
автор: Xxxxxxxxxxxxv
Предмет: Геометрия,
автор: neka050407antonova
Предмет: Химия,
автор: valentinashata