(см. объяснение)
Объяснение:
program task;
var i: integer;
const N=5;
procedure writeOut(i: integer);
begin
if(i<N) then write(', ')
else writeln('.');
end;
begin
if(N<1) then begin writeln('N>0 и целое!'); exit; end;
writeln('ЦИКЛ FOR:');
for i:= 1 to N
do begin
write(i); writeOut(i);
end;
writeln;
writeln('ЦИКЛ WHILE:');
i:= 1;
while(i<N+1)
do begin
write(i); writeOut(i);
i:= i+1;
end;
writeln;
writeln('ЦИКЛ REPEAT:');
i:= 1;
repeat
write(i); writeOut(i);
i:= i+1;
until i=N+1;
end.
Автомат получает на вход трехзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. Вычисляются два числа - сумма старшего и среднего разрядов, а также сумма среднего и младшего разрядов заданного числа.
Полученные два числа записываются друг за другом в порядке неубывания без разделителей.
Определите, сколько из приведенных ниже чисел могут получаться в результате работы автомата.
1616 169 163 1916 1619 316
В ответе запишите количество чисел и обоснование результата.
ответ
1616 -> 16 и 16, 169 -> 1 и 69, 163 -> 1 и 63, 1916 -> 1 и 916, 1619 -> 16 и 19, 316 -> 3 и 16
9 + 9 = 18 - максимально возможное число.
Оставим все числа, в которых слагаемые меньше или равны 18:
1616 -> 16 и 16, 316 -> 3 и 16
1616 -> 16 и 16 -> 888 (8 + 8 = 16, 8 + 8 = 16) - подходит
316 -> 3 и 16 -> такое число подобрать не получится, потому что между 3 и 16 большая разница и исходного числа не существует.
ответ: 1 число (1616)
