Чем помочь?Знаки препинания расставить?Синтаксический разбор?
Формула есть I=k*i
k=32*40*64
i=8
I=(32*40*64*8)/(8*1024)= 80 кб (килобайт)
Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>
Program keklol;
var y,x:integer;
writeln('vvedite y',y);
readln(y);
writeln('vvedite x',x);
readln(x);
y=1/(x*x*x)+(2sqr(x))+x
end.
Преобразуем по схеме Горнера, избавляясь от вычисления степени х.
y = 5x²+7x-30 = -30+x(7+5x))
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
Writeln('Y=',-30+x*(7+5*x))
end.