Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
andreykolomoytsev
28.04.2023 07:47 •
Информатика
Написать программу на языке pascal. найти значение выражения для заданного x. 1.1. 2x+5; 1.2. 3x^2+1x+7; 1.3. 3x+7; 1.4. 2x^2+7+10 знак ^ обозначает степень числа, а в паскале записывается как sqr(x), где x переменная.
Ответ:
lrada123
17.07.2020 21:52
Var x:integer;
begin
x:= ;//Сюда ввести значение.
writeln(2*x+5);
writeln(3*Sqr(x)+1*x+7);
writeln(3*x+7);
writeln(2*sqr(x)+7+10);
end.
С вводом X:
var x:integer;
begin
writeln('Введите x: ');
readln(x);
writeln(2*x+5);
writeln(3*Sqr(x)+1*x+7);
writeln(3*x+7);
writeln(2*sqr(x)+7+10);
end.
0,0
(0 оценок)
Ответ:
vitaly10
17.07.2020 21:52
Var
x,i,a1,a2,a3,a4:integer;
Begin
readln(x);
a1:=2*x+5;
a2:=3*sqr(x)+x+7;
a3:=3*x+7;
a4:=2*sqr(x)+7+10;
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
togrul654
28.05.2020 22:39
ИНФОРМАТИКА Как обрабатывать видео? 2. Для чего нужно обрабатывать видео? 3. Как сохранить видео?...
yopof195Pro
15.05.2023 17:13
Для сохранения 2 мин видео на экране монитора с разрешением 800 х 600, палитрой из 128 цветов и частотой 16 кадров требуется......
leraleva
02.05.2021 21:17
Не удалось подключиться к серверу Ip forwarding is enabled but spoofed data can t be decoded or is missingВернуться к списку серверовЯ создал сервер и вот такое пишет...
Cegou22
26.03.2022 16:15
Выберите величины, которые могут изменяться при выполнении Дружелюбным Роботом алгоритма «Поздоровайся с одноклассниками». 1) Количество парт в классе 2) Имя робота...
МарияМяуМяу
08.07.2020 04:41
Какое свойство алгоритма называется дискретность...
dosmailovadlet
03.07.2021 08:00
Составьте программу , которая возводит в квадрат введенное целое число, если оно отрицательное , и выводит на экран результат....
ksenia20062
03.07.2021 08:00
Зайцы пилят бревно. они сделали 25 распилов. сколько получилось чурбаков?...
Вольфыч228
05.02.2020 03:35
Автомат получает на вход трёхзначное десятичное число. по этому числу строится новое число по следующим правилам. 1. перемножаются первая и вторая, а также вторая...
crazy660
02.09.2020 19:45
Вдоме проживают 10 жильцов. подсчитать, сколько каждый должен платить за электроэнергию, и определить суммарную плату для всех жильцов. известно, что 1 квт/ч электроэнергии...
StarAl73
30.01.2023 16:27
Учитель предлагает детям три шестнадцатеричных цифры, следующих в порядке невозрастания. ученики должны сначала найти разность первой и второй цифр, потом — разность...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
x:= ;//Сюда ввести значение.
writeln(2*x+5);
writeln(3*Sqr(x)+1*x+7);
writeln(3*x+7);
writeln(2*sqr(x)+7+10);
end.
С вводом X:
var x:integer;
begin
writeln('Введите x: ');
readln(x);
writeln(2*x+5);
writeln(3*Sqr(x)+1*x+7);
writeln(3*x+7);
writeln(2*sqr(x)+7+10);
end.
x,i,a1,a2,a3,a4:integer;
Begin
readln(x);
a1:=2*x+5;
a2:=3*sqr(x)+x+7;
a3:=3*x+7;
a4:=2*sqr(x)+7+10;
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
End.