var
A: array [1..3] of Integer;
i, imin, imax, imid: Integer;
begin
Write('Введите 3 целых различных числа: ');
Readln(A [1], A [2], A [3]);
if (A [1] = A [2]) or (A [2] = A [3]) or (A [1] = A [3]) then begin
Writeln ('Имеются одинаковые числа!');
Exit;
end;
imin := 1;
imax := 1;
for i := 2 to 3 do begin
if A [i] < A [imin] then
imin := i;
if A [i] > A [imax] then
imax := i;
end;
for i := 1 to 3 do begin
if (i <> imin) and (i <> imax) then
imid := i;
end;
Writeln ('Произведение максимального и среднего числа = ' + IntToStr (A [imax] * A [imid]));
end;
Https://infourok.ru/test-po-informatike-otnositelnie-i-absolyutnie-ssilki-klass-2516776.html
var
i: Integer;
name, surname: String;
begin
writeln('Введите имя');
readln(name);
writeln('Введите фамилию');
readln(surname);
for i := 1 to 10 do
writeln(name,' ', surname);
end.
Чем отличается сохранить и сохранить как? ну если по логически подумать сохранить, сохраняет в том формате в котором работал, а сохранить как уже выбераешь сам как сохранить и в каком формате.
Ответ: 3 человека
Так как если все члены семьи дедушка отец папы,а папа отец мальчика таким образом у нас два отца. Если же наоборот то два сына
Желаю удачи:)