Монитор
т.к м+они(-1буква от слова кони)+тор(-1 буква от слова торт)= монитор
Var
t,st:real;
i:integer;
begin
for i:=1 to 7 do begin
readln(t);
st:=st+t;
end;
writeln('Средняя температура за первую неделю сентября: ',st/7,' °C');
end.<span>
</span>
Изображение 1400х1000х65536 цветов занимает 1400000*2 или 2800000 байт, то есть 3 мб видеопамяти должно хватить на одно такое изображение.
Используем схему Горнера.
y = x³+2.5x²-x+1 = 1+x(-1+x(2.5+x))
var
x,y:real;
begin
Read(x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
Writeln(y)
end.
var a:integer;
begin
readln (a);
if (a>0) then
repeat
a:=a-3;
until(a<0);
if (b<0) then
repeat
a:=a+2;
until (a>70);
writeln (a);
end.