Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x,y: real;
begin
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
end;
end.
не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)
64000*16=1024000 б=128000 б=125 кб
a: array[1..31] of real;
i,k: integer;
min: real;
min: =50;
for i: =1 to 31 do
readln(a[i]);
if a[i]< min then min: =a[i];
k: =0;
if a[i]=min then k: =k+1;
writeln(k);
Популярные вопросы