Войти
Регистрация
Спроси ai-bota
kwasmarianna
13.04.2022 02:55
Составить программу на паскале и к ней блок схему n=(a+b)^2(b+c)^2(-a-c)^2
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
datkinnurikozrhbf
02.06.2021 21:29
Скорость передачи данных равна 1024000 бит/с через данное соединение файл размером 4000кб. определить время передачи файла...
JANAAAAAA
02.06.2021 21:29
1. представьте информацию в структурном виде так, чтобы ее было легче воспринимать: «озеро байкал находится на юг восточной сибири. длина озера 636 км, ширина 80 км, площадь 31...
rsharapov
24.08.2020 20:13
Переведите чило в шестиричной сс в десятичную 12345...
anastasiagrebep08n1o
20.06.2021 15:40
Задан динамический двумерный массив. найти сумму четырех случайных элементов массива и произведение 9 случайных элементов массива.результат вывести на экран. язык реализации pascal....
Ivan700
26.07.2020 05:43
Почему нельзя для выравнивания по центру использовать пробелы в начале строки...
valeevinsaf
26.07.2020 05:43
Дайте словесное описание алгоритма сложения двух обыкновенных дробей a/b и c/d...
папа336
26.07.2020 05:43
Загадано слово из 10 букв. вы просите открыть пятую букву. вам ее открыли. сколько информации вы получили?...
Bossak
06.05.2021 14:24
Составьте программу к : возвести данное число в куб,если оно чётное, и увеличить на 3, если оно-нечётное ps: pascal...
died267
07.01.2023 08:05
Сканируется цветное изображение размером 48,26×48,26 дюйм. разрешающая сканера — 1200×1200 dpi, глубина цвета — 16 бита. какой информационный объём будет иметь полученный графический...
ЛесяКисс
06.05.2021 14:24
Пусть a,b,c - логические величины, которые имеют следующие значения: а= истина, b=ложь, c=истина. определите результаты вычисления следующих логических выражений: а) а и b б) a...
Ответ:
grimangus
07.10.2020 17:17
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3('Введите a,b,c->');
var N:=((a+b)**2)*((b+c)**2)*(-a-c)**2;
Writeln('N=',N);
end.
Как в школе учат ->
var a,b,c:integer; N:real;
begin
Writeln('Введите a,b,c->');
read(a,b,c);
N:=((a+b)**2)*((b+c)**2)*(-a-c)**2;
Writeln('N=',N);
end.
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота