Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
64000*16=1024000 б=128000 б=125 кб
var a,b: integer;
begin
read(a,b);
writeln("s=",a*b/2);
end.
сетевые устройства наверное, если по минимуму
не наю че за гамбас
пишу на паскале
var a: array[1..100] of integer;
i,n,k5,k4,k2: integer;
s: real;
read(n);
for i : = 1 to n do begin
writeln(' оценку учиника ',i);
readln(a[i]);
s: =s+a[i];
if a[i]=5 then k5: =k5+1;
if a[i]=4 then k4: =k4+1;
if a[i]=2 then k2: =k2+1;
end;
writeln(s/n,k5,k4,k2);
Популярные вопросы