Автомат получает на вход пятизначное десятичное число. по полученному числу строится новое десятичное - id276295320210724 от Xomawq 24.07.2021 15:41

Question

Информатика: Автомат получает на вход пятизначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам: 1. вычесляются два числа - сумма первой, третьей и пятой цифр и сумма второй и четвертой цифр заданного числа. 2. полученные два числа записываются друг за другом в порядке неубывания (безразделителей) . определите, сколько из ниже чисел могут получиться в результате работы автомата. 40 1030 130 1320 2019 1920 2013 213 3010

Xomawq · Accepted Answer

Program p1;
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
begin
writeln('Введите кол-во правильных ответов, данных участником ',i);
readln(a);
if (a > max) then max:=a;
if a=0 then fl:=1;
end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' ');
end.

Пример:
Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал

MOGZ ответил