При условии если даны переменные a, b
а)
var t : integer := a;
a := b;
b:=t;
б) (a, b) := (b, a);
Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ
begin
Range(100, 999).Where(x -> x mod 7 = 0).Aggregate(0, (s, x)-> s + x).Println;
end.
Var age:integer;
begin
readln(age);
if ((age mod 100 >= 10) and (age mod 100 <= 19)) then writeln(age, ' лет')
else if (age mod 10 = 1) then writeln(age, ' год')
else if ((age mod 10 >= 2) and (age mod 10 <= 4)) then writeln(age, ' года')
else writeln(age, ' лет');
<span>end.</span>