Упользователя в качестве пароля компьютерной системы используется такое простое четырехзначное число, для которого цифра старшего разряда равна сумме трёх оставшихся. какое максимальное количество паролей подходит под указанные условия
Ну по сути нужно выписать в порядке возрастания, либо в порядке убывания, соответственно они должны быть пронумерованы, задание вы дали не полностью, так что придется догадываться...
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
1 чемпионы & плавание
2 чемпионы | (бег & плавание)
3 чемпионы | бег | плавание
4 чемпионы & Европа & бег & плавание
если в порядке возрастания, то в ответ пишите так...
4123
если в порядке убывания, то в ответ пишите так...
3214
не особо уверен что нужно сделать именно это, т.к задание вы полностью не предоставили, но если задание такое, то должно быть правильно
// 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