Var x, y: real; begin x : = -5; writeln(' x y '); while x < = 5 do begin y : = 5 - x*x/2; writeln(x: 4: 1,' | ',y: 5: 2); x : = x + 0.5 end; end. : из цикла while в цикл for
денисдениска
3
16.04.2019 14:32
1
Другие вопросы по теме Информатика
mauzeriss
20.05.2019 01:20
mihatyt100
30.09.2019 20:59
Папич3
30.09.2019 22:20
nastyachurkina
30.09.2019 20:57
lisovasvitlana15
21.12.2021 20:53
goroskopy
21.12.2021 20:54
sinitsadmitrij
05.05.2020 12:11
prostopohelnaxyi
26.04.2020 00:30
малая188
26.04.2020 00:30
Популярные вопросы
- В каких климатических поясах лежит большая часть Северной Америки? 1 умереный...
1 - Реши систему уравнений:{5y+5x=9{5x−3y=0ответ при необходимости округлите...
2 - Напиши 26 рассказов о Гайдар а. П....
1 - За якими особливостями галузевої структури господарства США зараховують...
1 - отрезок АВ, где А (-213; 0,05), В (2,35; -37) пересекает...1) Ось абсцисс...
1 - Света и Лена вместе весят 60 кг, Лена и Марина - 80 кг, Марина и Света...
3 - В мемуарах канцлера Германии Бисмарка описывается случай, весьма ярко...
3 - сделать задание по английскому...
3 - А)(4+y²)(y²-4); б)(9a-b²)(b²+9a);в)(0,7x+y²)(0,7x-y²);г)(10p²-0,3q²)(10p²+0,3q²)...
3 - Why the rea of rainforests going down now?What problems are there?...
2
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.