Var a,b,c:real;
begin
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln('false');
end.
у меня почему то получается 3 варианта, все проверил и похоже все подходят, странно.
1) <span>Виноградов - Писатель</span>
<span>Поспелов - Певец</span>
<span>Сабиров - Иллюзионист</span>
<span>Шмонов - Художник</span>
2) Виноградов - Иллюзионист
Поспелов - Певец
Сабиров - Художник
Шмонов - Писатель
3) Виноградов - Художник
Поспелов - Певец
Сабиров - Иллюзионист
Шмонов - Писатель
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
Учебник 56 бит понял аааааааааауууууууууу