program
var a,b,c,d,n:integer;
begin
write('Введите кол-во учеников в классах:');
read(a,b,c);
writeln('Введите кол-во учебников в библиотеке:');
read(n);
d:=a+b+c;
if (n>=d) then writeln('Учебников хватит.')
else writeln('Учебников не хватит.')
end.
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString;
var (m,n):=ReadInteger2('Введите через пробел m и n:');
Swap(a[m],a[n]); a.Println;
end.
<u>Пример</u>
Информатика
Введите через пробел m и n: 5 2
Ирфонматика
Попробуйте взять элементы физики, такие как разделы кинематики, динамики и прочее.
<span>Можно взять тело брошенное под определенным углом и смотреть его траекторию.
</span>
XIV + XV = 15 + 14 = 29 = XXIX