Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
поправьте меня если ^ это не указатель стпени, но если это степень то вот просто:
var a,x: extended; n,i: longint; begin read(x); read(n); a: =1; for i: =1 to n do a: =a*x; writeln(a: 0: 0); end.
640*350=224 000 пикселей 224000*2=448 000 пикселей на 2-х страницах. 16 цветов - 4 битный цвет, то есть 2 пикселя занимают 1 байт. 448000/2=224 000 байт = 1 792 000 бит = 218,75 кб
853
350
323
620
602
152
503
530
233
251
701
710
413
440
var x,y: real;
begin
readln(x);
if x> 8 then y: =x/4 else y: =x*5;
writeln(y);
end.
Популярные вопросы