Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
basik100grn
17.06.2020 06:08 •
Информатика
Написать программу на языке паскаль (разветвляющийся алгоритм): 1) f=x2-3 (икс в квадрате минус три), x2=x*x (x в квадрате равен x умножить на x) 2) s=1/2ab (одна вторая а б) 3) с=a2-b2 (а в квадрате минус б в квадрате)
Показать ответ
Ответ:
ahmedova3
05.07.2020 13:53
Var x,f,s,c,a,b:real;
begin
write('X = ');
readln(x);
write('A = ');
readln(a);
write('B = ');
readln(b);
f:=x*x-3;
s:=a*b/2;
c:=a*a-b*b;
writeln('F=',f:3:2,' S=',s:3:2,' C=',c:3:2);
end.
0,0
(0 оценок)
Ответ:
Nikuiii
05.07.2020 13:53
1) Не разветвление)
program xizt;
uses crt;
var x,f:real;
begin
writeln ('введите х');
readln (x);
f:=sqr(x)-3;
writeln (f);
end.
2) program xizt;
uses crt;
var a,b,s:real;
begin
writeln ('введите a,b через пробел');
readln (a,b);
s:=1/2*a*b
writeln (s);
end.
3) program xizt;
uses crt;
var a,b,c:real;
begin
writeln ('введите a,b через');
readln (a,b);
c:=sqr(a)-sqr(b);
writeln (c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AnnyKotuk
30.03.2021 10:25
Фигуры в графическом редакторе. Можно ли после рисования фигуры выбрать типконтура и заливки?Это зависит от типа контура и заливки, которыехочет выбрать пользователь.Это зависит...
adam83
20.03.2022 00:46
Из чего состоит компьютер? напишите 10 частей компьютера...
опернг
14.02.2023 05:39
Уровень с 1. Посмотри на образец, нарисуй в графическом редакторе. Дай название рисунку, подпии, используя инструмент Ввод текста. образец: Изображение жайлау, созданное в программе...
alleksees
16.05.2021 05:04
. Каким образом осуществляется работа со справочной системой текстового процессора?...
lebedd50
06.02.2021 23:31
Укажите лишнее объект с точки зрения соглашения о смысле используемых знаков а)буквы,б)дорожные знаки,в)цифры,г)нотные знаки...
kamillavoice
03.07.2022 17:26
5 . Відкрийте вказаний учителем файл (наприклад, Розділ 7 Пункт 7.2\зразок 7.2.5.xlsx). На аркуші Аркуші подано результати висту- пів учасників олімпіади у кожному з двох турів....
Бодичка539
11.07.2022 13:26
Попробуйте составить предложение ,в которое входят только: имена существительные; имена прилагательные; глаголы; предлоги; союзы. из каких частей речи нельзя составить такое...
VikiKot1315
11.07.2022 13:26
Решите системы графическим заранее...
kseniya7117
11.07.2022 13:26
Как называлось идейное течение на кавказе, требовавшее от верующих полного подчинения имаму и войны с неверными до победы?...
slava531
11.07.2022 13:26
1а. выберите правильный ответ для продолжения фразы: «на пересечении строки и столбца располагается …» и обведите его номер. 1. электронная таблица. 2. ячейка. 3. столбец. 4....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('X = ');
readln(x);
write('A = ');
readln(a);
write('B = ');
readln(b);
f:=x*x-3;
s:=a*b/2;
c:=a*a-b*b;
writeln('F=',f:3:2,' S=',s:3:2,' C=',c:3:2);
end.
program xizt;
uses crt;
var x,f:real;
begin
writeln ('введите х');
readln (x);
f:=sqr(x)-3;
writeln (f);
end.
2) program xizt;
uses crt;
var a,b,s:real;
begin
writeln ('введите a,b через пробел');
readln (a,b);
s:=1/2*a*b
writeln (s);
end.
3) program xizt;
uses crt;
var a,b,c:real;
begin
writeln ('введите a,b через');
readln (a,b);
c:=sqr(a)-sqr(b);
writeln (c);
end.