<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,x):=(1.65,0.7);
while x<=2.01 do begin
Write(x:3:1);
if x<1.4 then Writeln(pi*x*x-7/x/x:15:5)
else
if x=1.4 then Writeln(a*x*x*x+7*Sqrt(x):15:5)
else Writeln(Ln(x+7*Sqrt(Abs(x+a))):15:5);
x+=0.1
end
end.
<u>Пример</u>
0.7 -12.74633
0.8 -8.92688
0.9 -6.09729
1.0 -3.85841
1.1 -1.98380
1.2 -0.33722
1.3 1.16728
1.4 2.61190
1.5 2.63360
1.6 2.65461
1.7 2.67498
1.8 2.69476
1.9 2.71397
2.0 2.73264
На экране появится квадрат. Черепашка проходит 45 шагов вперед, поворачивается на 90 градусов, опять проходит 45 шагов, опять поворачивает... И так 180 раз.
Возьми напиши компьютер по середине потом
клавиатура
о.
монитор
п
ь
ю
т
е
р
дальше возит открой книгу по информ и найди слова
Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.