1. Информатика
  2. Написать программу на языке

Написать программу на языке паскаль

sanyaleleckov sanyaleleckov    3   12.05.2019 16:15    1

Ответы
Neon1407 Neon1407  30.09.2020 17:30

Var x:integer;

Begin

x:=-1;

while x<=12 do

begin

writeln('x = ',x,'; y = ',(4*x*x*x*x+cos(x)-5)/(6*x*x*x+2));

x:=x+0,4;

end;

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Naychpok Naychpok  11.12.2020 13:24
Дана последовательность отрицательных целых чисел, оканчивающаяся положительным числом. Найти среднее арифметическое всех чисел последовательности (без учета положительным...
Alexgorila Alexgorila  11.12.2020 13:25
То что я прикрепила,это карта ,схема или чертеж ?​...
zcneltyn zcneltyn  11.12.2020 13:26
С ОБЪЯСНЕНИЯМИ Задание 2 ( ). В каталоге хранился файл Домашнее_задание.docх. В этом каталоге создали три подкаталога (один в один) и переместили в созданные подкаталоги...
Русик271 Русик271  11.12.2020 13:28
Грандиет деген бир тус екинши туске тез аусуыма алде баяу айсуыма​...
coolman7 coolman7  26.05.2020 20:07
 в программе «Блокнот» набрать HTML-код Web-страницы произвольной тематики (структура HTML-кода страницы – разобрана на уроке), на странице должен быть  заголовок,...
897masterlomasotdp3h 897masterlomasotdp3h  12.09.2019 01:10
Сообщение занимает 2 страницы и содержит 2,5 кбайт информации.на каждой странице записано 256 символов . какова мощность использованного алфавита?...
Вероникалобова Вероникалобова  12.09.2019 01:10
ответьте на вопросы 1) несколько жестких магнитных дисков на одной оси внутри герметичной коробки это 1. озу 2. винчестер 3. пзу 2) в чем смысл перезагрузки эвм? 1. очищается...
vikook1 vikook1  12.09.2019 01:10
При выполнении какого из перечисленных ниже алгоритмов на экране появился правильный треугольник? 1 повтори 3 [вперёд 50 направо 20 направо 25] 2 повтори 3 [вперёд 50...
LoliPIP LoliPIP  12.09.2019 01:10
Какие размещения информации в интернете используете лично вы?...
katenok1706 katenok1706  12.09.2019 01:10
Program ggwp; uses crt; var a,b,c: integer; d,x1,x2: real; begin clrscr; writeln( введите коффициент уравнения ); readln(a,b,c); d: =b*b-4*a*c if d 0 then begin x1: =(-b+sqrt(d))/(2*a);...

Популярные вопросы