1. Информатика
  2. 30 составить программу

30 составить программу для нахождения значения y по формуле: y= 20-14x2+12x 30

132427 132427    3   18.09.2019 22:30    0

Ответы
lenakors1997 lenakors1997  08.10.2020 00:58
Var x,y: integer;
begin
readln(x);
y:=20-14*x*x+12*x;
writeln('y = ',y);
end.

Пример:
5
y = -270
ПОКАЗАТЬ ОТВЕТЫ
drart77 drart77  08.10.2020 00:58
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (x,y):=(ReadReal,0.0);
y:=20-14*x**2+12*x;
write('y=',y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Artemmundryl Artemmundryl  18.06.2019 23:30
1.при переводе числа 103 из десятичной системы в восьмеричную получили некоторое число. укажите это число: a) 146 b)1407 c)1047 d)147...
Gowaimargowa123 Gowaimargowa123  18.06.2019 23:30
Таблица в банк выдал ссуду 200 тыс. руб. на четыре года по 18% годовых. определить размер ссуды, погашаемой ежегодно....
mariana20021 mariana20021  05.05.2020 23:01
Чо делать если планшет (самсумг) не хочет заряжать больше 81% и вырубается на 30%...
customsto customsto  05.05.2020 23:02
Нужна Написать программу, которая всем элементам символьного массива,размерностью 10*10, расположенным так, как указано на картинке желтым цветом,присваивает символ...
moda712 moda712  05.05.2020 23:02
класс два задания дайте только ответ....
RomaNeymarjr RomaNeymarjr  09.04.2020 11:55
Укажите преимущества компьютерной технологии подготовки текста по сравнению с бумажным Выберите несколько из 6 вариантов ответа​...
vladislavfomin vladislavfomin  09.04.2020 11:57
Как вы думаете, в чём преимущество использования трехмерных моделей?​...
Абдусатор Абдусатор  09.04.2020 11:57
В одной из кодировок Unicode каждый символ кодируется 16 битами. Анна написала текст (в нём нет лишних пробелов): Водород, гелий, бериллий, бор, фосфор, азот, рентгений,...
t0l1k t0l1k  09.04.2020 11:57
Черно-белое (без градаций серого) графическое изображение имеет размер 31×31 точек. Какой объём памяти займёт это изображение?ответ: бит.​...
мирэлюзий мирэлюзий  09.04.2020 11:57
Яке значення S буде виведено в текстове поле?var N,d,S: Integer;begin N := 345; S := 0; Repeat d := N mod 10; S := S+d; N := N div 10; Until N=0; Edit2.Text := IntToStr(S);end...

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