Если я правильно понял условие, то...
var a,b,c:integer;
integer;
begin
readln(a,b,c);
If (a+b<100) or (a+c<100) or (b+c<100) then
writeln(1)
else
writeln(0)
<span>end.</span>
150000 по моему.
Потому-что с марта до декабря 10 месяцев м поэтому 500000 умнажаем на 3 делим на 10 дробна
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>
Ответ:
Скажите значения переменных, тогда напишу программу.И на каком языке уточните.
var n,k:integer;
begin
readln(n);
k:=n mod 10;
while n>0 do begin
n:=n div 10;
if k<(n mod 10) then k:=n mod 10;
if k=9 then break;
end;
writeln(k);
end.