Const
n = 5;
type
mas = array[1..n] of integer
var
max : integer;
begin
max := 0;
for i:=1 to n do
if (max < mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];
writeln(max);
end.
Вот вроде так, попробуйте
257 = 100000001(2)
Для записи числа 257 в двоичной системе счисления необходимо 9 разрядов ⇒ для хранения этого числа требуется 2 байта.
program p1;
uses crt; выводит окошко, где будет результат
var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;
end;
write(s);
end.
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>