Var a,b,c,x:real;beginwriteln('Введите значение a: ');readln(a);writeln('Введите значение b: ');readln(b);writeln('Введите значение c: ');readln(c);x:=a*(b/pi+c*3) ;writeln('x = ',x);end.
Ну по сути нужно выписать в порядке возрастания, либо в порядке убывания, соответственно они должны быть пронумерованы, задание вы дали не полностью, так что придется догадываться...
1 чемпионы & плавание 2 чемпионы | (бег & плавание) 3 чемпионы | бег | плавание 4 чемпионы & Европа & бег & плавание
если в порядке возрастания, то в ответ пишите так...
4123
если в порядке убывания, то в ответ пишите так...
3214
не особо уверен что нужно сделать именно это, т.к задание вы полностью не предоставили, но если задание такое, то должно быть правильно
1. Современное решение с числами произвольной длины
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var s1:=ReadlnString('1-е число:'); var s2:=ReadlnString('2-е число:'); Writeln('Сумма последних цифр: ',s1.Right(1).ToInteger+s2.Right(1).ToInteger) end.
Пример 1-е число: 23454577562342341234213141652 2-е число: 35645675786956323224 Сумма последних цифр: 6
2. Типовое "школьное" решение
var a, b: integer;
begin Write('Введите два числа через пробел: '); Read(a, b); Writeln('Сумма последних цифр: ', a mod 10 + b mod 10) end.
Пример Введите два числа через пробел: 435345 6342 Сумма последних цифр: 7
