800*600=480000точек
точка 1*1 весит 16 бит
480000*16=7680000(бит)
7680000:8=960000(байт)
960000:1024=937.5(кб)
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.
//прога на Pascal`e
var
n: uint64;
x : int64;
//
function f (a, p:int64):int64;
var i, sum: int64;
begin
sum:=1;
for i:=1 to p do
sum:=sum*(a-i);
f:=sum;
end;
//
begin
readln (x, n);
write (f(x, n));
end.
1 задача :
var n:integer;
BEGIN read(n); writeln(n div 60,' мин.',n mod 60,' сек.'); END.
После program должна быть латинская буква, насколько я помню. С цифры нельзя начинать
Если что, напиши
(Просто я обычно эту строчку вообще не пишу в программах)