===== PascalABC.NET =====
begin
var n := ReadInteger('Длина последовательности:');
ReadSeqInteger('Вводи:', n).SortedDescending.Println
end.
Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.
Через 3 часа - 2 клетки.
Через 6 часов - 4 клетки.
Через 9 часов - 6 клеток.
Через 12 часов - 8 клеток.
Через 18 часов - 12 клеток.
Через 24 часа - 16 клеток.
Алгоритм: кол-во ЧАСОВ делим на 3 часа и умножаем на 2 клетки.
Например: 48:3=16 и 16×2=32; то есть через 48 часов будет 32 клетки.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function MaxDigit(n:integer):integer;
begin
Result:=0;
while n>0 do begin
var m:=n mod 10;
if m>Result then result:=m;
n:=n div 10
end
end;
begin
var n1,n2:integer;
Write('Введите через пробел два натуральных числа: ');
Read(n1,n2);
Writeln('s=',MaxDigit(n1)+MaxDigit(n2))
end.
<u><em>Тестовое решение</em></u>
Введите через пробел два натуральных числа: 53252 4654083
s=13
На фото всё размыто, и не видно(