Придумай сам или вспомни пиктограммы, которыми можно заменить следующие сообщения. Не бросать мусор. Дорогу переходят дети. Столовая. Не разжигать костры. Не рвать цветы.
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 function Sod(n:integer):integer:= n.ToString.Select(c->StrToInt(c)).Sum;
begin var n:=ReadInteger('n='); var max:=0; var m,mmax:integer; for var i:=1 to n do begin m:=ReadInteger('Число '+IntToStr(i)+': '); var s:=Sod(m); if s>max then begin max:=s; mmax:=m end end; Writeln('Максимальная сумма ',max,' в числе ',mmax) end.
Тестовое решение: n= 5 Число 1: 3243 Число 2: 10000004 Число 3: 23536 Число 4: 9942 Число 5: 43354 Максимальная сумма 24 в числе 9942
0006 - нормально принимается -0 - нормально принимается, операция унарный минус 7,0 - как число не принимается, принимается как массив 7. - не принимается, нужно после точки указать ноль +0.3 - не принимается, нет операции унарный плюс .3 - не принимается, требует дописать нолик в начале, хотя в других средах может прокатить 2/3 - нормально принимается, хотя следует учитывать что в данном случае деление целочисленное Е-1 - не принимается, в Ruby нет такой записи числа 8Е0 - не принимается, в Ruby нет такой записи числа 0Е-4 - не принимается, в Ruby нет такой записи числа 2*Е5 - не принимается, в Ruby нет такой записи числа e - не принимается, считается необьвленной переменной
[f[[f[f[[[f[f[[f[
: