Var a, b : integer;
Begin
Write('Введите число а: ');
Readln(a);
Write('Введите число b: ');
Readln(b);
If a < b then begin
A := 0;
B := a * b;
Write('a = ', a, 'b = ', b);
End
Else
Begin
B := 0;
A := a * b;
Write('a = ', a, 'b = ', b);
End;
End.
Внимание! Если программа не работает, обновите версию Pascal !
begin
var mas:=ArrRandom(15,0,10); mas.Println;
mas.Select((v,i)-> v =0 ? i*i:v).Println;
end.
Все буквы меняем на предыдущие в алфавите ФОТОАЛЬБОМ
У Алины 8 *2 = 16 Гб
16+8 = 24 Гб вместе у Алины и Яши
у Марата 24 * 4/3 = 32 Гб
Ответ 2)