Выведите на экран все трёхзначные числа в которых хотя бы две цифры повторяются.в паскале.в программировании я полный ноль.​

для машин информатики. оформите программу на неизвестном языке программирования, обеспечивающую: - заполнение одномерного массива в с клавиатуры n вещественными значениями; - за минимальное число проходов по массиву в без использования дополнительных массивов последовательное (а-б-в-г) заполнение одномерного массива z значениями элементов массива в в указанном порядке их сходного расположения в массиве в а) сначала неотрицательные элементы на чётных позициях в исходном порядке б) потом неотрицательные элементы на нечётных позициях в порядке, обратном исходному в) затем отрицательные элементы на четных позициях в порядке, обратном исходному с) потом отрицательные элементы на нечётных позициях в исходном порядке -вывод элементов массива z

ответ: 2 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

Объяснение:

1 ВАРИАНТ)

var

x:char;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

НЕ ПОДХОДИТ, Т.К. для x указан тип данных - символьный. var  x:char;

2 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

ПОДХОДИТ, Т.К. всё верно.

3 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

end.

НЕ ПОДХОДИТ, Т.К. программа не делает вывод ответа.

4 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)*(2+7);  

writeln('x=',x:4:2);

readln;

end.

НЕ ПОДХОДИТ, Т.К. допущена ошибка при записи уравнения. Указано умножение, вместо деления (32+45) * (2+7)