Линда живет не в Риме (1), значит, она не певица (3). Кроме того, она не занимается балетом (4), значит, она <u>снимается в кино</u>. Поэтому она не парижанка (2), остаётся, что она из <u>Чикаго</u>.
Джулия живёт не в Париже (1) и не в Чикаго (там живёт Линда), значит, в <u>Риме</u> и поэтому она <u>певица</u> (3).
Для Айрис остаются только <u>Париж</u> и занятия <u>балетом</u>.
Ответ. Айрис живёт в Париже и занимается балетом.
Const n = 10;
var
temp: array [0..n-1] of shortint;
max, min, i: byte;
sum : integer;
begin
randomize;
writeln ('Температуры ', n, ' дней:');
for i:=0 to n-1 do
begin
temp[i]:=random (41)-20;
write (temp[i], '; ');
if temp[i]>temp[max] then max:=i;
if temp[i]<0 then inc (min);
inc (sum, temp[i]);
end;
writeln ();
writeln ('Средняя температура: ', sum/n);
writeln ('Макс. температура: ', temp[max]);
write ('Кол-во дней с отриц. температурой: ', min);
end.
Var
x, y, p: Integer;
begin
Writeln('Введите два числа');
Readln(x, y); {вводим два целых числа}
p := x * y;
repeat
if x > y Then x := x Mod y
Else y := y Mod x
until (x = 0) Or (y = 0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОK=', p / (x + y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
end.
