Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.
-------------------------
Это если консольное. Если графическое приложение - тогда приношу свои извинения.
Попробуйте взять элементы физики, такие как разделы кинематики, динамики и прочее.
<span>Можно взять тело брошенное под определенным углом и смотреть его траекторию.
</span>
1 байт = 8 бит.
Переведем все в биты. 2 байта =16 бит.
Тогда
15 бит ->2 байта -> 20 бит
Ответ:3.
//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
вот фото - на нем четко изображен ,, робот садовник,,