Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
сидоровнекит
18.07.2020 08:23 •
Информатика
Написать программу на языке паскаль (разветвляющийся алгоритм): 1) f=x2-3 (икс в квадрате минус три), x2=x*x (x в квадрате равен x умножить на x) 2) s=1/2ab (одна вторая а б) 3) с=a2-b2 (а в квадрате минус б в квадрате)
Показать ответ
Ответ:
кококо23
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 оценок)
Ответ:
ИЩЕ6
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 оценок)
Популярные вопросы: Информатика
Сарфароз03
27.11.2021 17:33
Сделать кроссворд из слов §8-§9(10 слов) Информатика 6 класс...
ElzaraLeonovich
23.10.2021 20:43
Отрицательные и положительные числа. Задачка по програмированию. Снова жду умняшек (Использую Паскаль! )...
Сас111
12.11.2022 10:12
Складить кросворд зи словами информация повидомлення процес телевизор свитлофор лист учитель...
daryamoskovskay
07.03.2021 22:46
Чтобы открыть новое окно в программе Python, нужно запустить IDLE и выбрать из меню File = New file.Пуск=Python= File =OpenПуск=Python= File =Open ModuleПуск=Python= File...
олжас200
07.02.2022 20:14
Рассмотри изображения блока Независимого управления . Сравни их и выбери те, в которых робот повернет налево:Верных ответов: 2В - СВ + C50100450-500.5В - СВ + C1001000100...
Zzzz151
02.02.2021 19:24
Напишите программу которая получает с клавиатуры числа до тех пор пока не буде введено число 0 в конце работы программы на экран выводится произведение введенных чисел...
Милена3001
15.09.2020 05:53
Раздел 8.ЗА«Интегрированные средыразработки программ»...
nikdelordp08m0z
26.06.2021 15:18
Приемник информации один в случае: А) самостоятельного решения задачи Б) школьной экскурсии в картинную галерею на выставку современного искусства В) работы в группе над...
vxtrxxx
27.01.2023 07:41
Дан массив из 8 элементов все его элементы увеличить в 2 раза...
georgijandreev1
15.08.2020 10:16
Яке місто вважається батьківщиною інтернету?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.