Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
никнейм85
19.04.2020 04:56 •
Информатика
Напишите программу , которая вычисляет площадь и периметр прямоугольника по двум его сторонам .
Показать ответ
Ответ:
pOMOGITPLZ1
16.05.2020 10:16
Program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lizokf8
18.11.2022 06:08
ДаДан текст Тиха украинская ночь . Курсор находится перед буквой Т . К тексту применены команды: выделить слово, вырезать, выделить слово, копировать, выделить следующее слово,...
sofamalaya
21.12.2021 14:17
Выполни задание в любом текстовом редакторе, предварительно скопировав головоломку. Пользуйся только клавиатурой, но кроме вышеперечисленных клавиш. ГНОМ КРОТ Какие клавиши...
Gowaimargowa123
20.08.2022 13:40
ТОЛЬКО НА PYTHON, СДЕЛАТЬ ПО ПРЕЗЕНТАЦИИ Массив содержит четное количество элементов. Напишите программу, которая сортирует первую половину массива по возрастанию, а вторую...
Carolina1Cerry
09.11.2022 22:12
решить все задания,только ответы написать. Мне надо двойку исправить. 1) 512Байт=Кбайт 1 Мбайт=Кбайт 3072Мбайт=Гбайт 2) Алфавит жителей некоторой планеты состоит из 30 символов.Сколько...
invation
14.03.2022 04:51
( ексель) в диапазоне ячеек а2 н2 записаны 8 целых чисел выяснить оканчивается ли их сумма цифрой 5 или нет...
Sofia1863
26.02.2023 14:41
Хелп ми 64 бит =байт28 Кбайт = Мбайт5 Кбайт= байт15 байт =бит28 Мбайт=байт6 Гбайт =Мбайт...
Sozedatel
23.09.2021 07:06
Хелп 1) Дана переменная a. Пользователь вводит a с консоли. Необходимо выводить переменную a, и уменьшать ее, пока она больше 0. 2) Дана переменная a. Пользователь вводит...
valeri1232
09.02.2023 22:38
система исполнителя черепаха...
Некий2006
23.03.2020 01:59
1. Что такое компьютерный вирус? 1) Прикладная программа. 2) Системная программа. 3) Программа, выполняющая на компьютере несанкционированные действия. 4) База данных. 2....
arti52
27.10.2022 22:08
Не Определите значение переменной с после выполнения следующего фрагмента программы: а:= 25; Б:= 12; а:= 3*b-а; if a b then c:= 2*a - b else c:= 2*a + b;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.