Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
alka231282
04.04.2022 00:32 •
Информатика
ПОДАЛУЙСТА ПОПОГИТЕ ОСТАЛОСЬ 20 МИНУТ
Показать ответ
Ответ:
Arkadysh
13.06.2021 11:55
Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.
0,0
(0 оценок)
Ответ:
Vilhctein1989
13.06.2021 11:55
Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MrStepWay
07.09.2022 00:37
Считая, что каждый символ кодируется одним байтом, оценить информационный объем: 1. лень делает всякое дело трудным. 2. и трижды тот вооружен, кто прав!...
hhhhh122
23.08.2022 20:35
Дана пословица: Тише едешь — дальше будешь. К ней построена блок схема...
егор1481
22.11.2020 02:37
Дан двумерный массив целых чисел. Вставить в него: а) строку из нулей перед всеми строками, в которых количество положительных элементов равно количеству отрицательных;...
hanter13
22.02.2021 10:43
Укажите через пробел в порядке возрастания все десятичные числа, не превосходящие 45, запись которых в двоичной системе счисления оканчивается на 1010?...
адевале1
10.01.2023 20:09
Составить схему обучающие программы 3 класс...
sirdemenev
28.05.2023 02:41
Ыбырай Алтынсариннің педагогика саласы...
Ilyaky
04.03.2020 08:17
с алгеброй 1. Изобразить граф, соответствующий матрице: A B C D E A X 4 X X 5 B 4 X 8 11 9 C X 8 X 7 2 D X 4 7 X 6 E 5 9 2 6 X 2.Между населенными пунктами A,B,C,D,E,F...
danilsartakov
22.04.2022 05:49
Табан қабырғалары 6 см, 8 см, 10 см, ал биіктігі 8 см үшбұрышты тік призма берілген. Толық бетінің ауданын табыңыз...
BTSBTSBTS
28.06.2022 22:57
Количество машин на стоянке в 4 раза меньше чем грузовиков. Грузовиков на 54 больше чем машин.Сколько машин на стоянке? Сколько грузовиков на стоянке?...
Yaniks02
28.06.2022 22:57
4.В какой стране впервые появилась гармонь?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.