Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
bebe13
28.01.2021 17:49 •
Информатика
Написать программу нахождения периметра прямоугольника по известным сторонам a и n (a и n — целые числа, вводимые с клавиатуры).
Показать ответ
Ответ:
Аня341
07.10.2020 04:45
Var a, n, p :integer;
begin
write('a =');
readln(a);
write('n =');
readln(n);
p:=2*(a+n);
writeln('Периметр = ',p);
end.
Пример:
a = 8
n = 5
Периметр = 26
Или так:
begin
var a:=ReadInteger('a = ');
var n:=ReadInteger('n = ');
writeln('Периметр = ',2*(a+n));
end.
Пример:
a = 8
n = 5
Периметр = 26
0,0
(0 оценок)
Ответ:
xaverqenizadeoxg0iy
07.10.2020 04:45
Var a,n,p:integer;beginreadln(a);readln(n);p:=(a+n)*2;writeln(p);end.
P.S. код на pascal abc.net
0,0
(0 оценок)
Популярные вопросы: Информатика
Aleksandra19771
29.09.2020 23:33
Операционные системы MacOS используются преимущественно на компьютерах, выпускаемых фирмой...
Hellybery
07.11.2020 17:40
Текст Б Без общественного транспорта мы не мыслим сегодня своей жизни, хотя почти в каждой семье есть автомобиль, мотоцикл, мопед или велосипед.Общественный транспорт создан...
NazarKlakovych28
10.09.2021 06:46
Задача 2.Переведите:а). 34в10–А 5б). 321в 10–А в7в). 201в10 –Ав3...
katasmajl
03.01.2022 04:18
Постройте деревья, соответствующее следующмм арифметическим выражениям...
arizonacoins
13.08.2022 23:23
A ) Сформулируйте и докажите условие, позволяющее определить чётность числа по его записи в системе счисления с основанием ( b ) 3; ( c ) n....
LPKenion
08.03.2022 19:50
Какие основные величины характеризуют память?...
Brainly223331156
28.11.2020 05:47
ответьте на вопросы -...
ShurenkoPasha12
09.10.2020 08:46
Составить программу, которая строит график зависимости y(x)=x^2+9sin x на отрезке[-13;23]...
Karumi1
11.06.2020 03:09
Статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 64 символа. определите размер статьи в кодировке кои-8, в которой каждый...
racinskaulana
06.04.2020 12:24
Скажите ответы 21. уксусная кислота взаимодействует с каждым из двух веществ: 1) гидроксидом меди (ii) и метаном; 2) метанолом и серебром; 3) метанолом и магнием; 4) гидроксидом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a =');
readln(a);
write('n =');
readln(n);
p:=2*(a+n);
writeln('Периметр = ',p);
end.
Пример:
a = 8
n = 5
Периметр = 26
Или так:
begin
var a:=ReadInteger('a = ');
var n:=ReadInteger('n = ');
writeln('Периметр = ',2*(a+n));
end.
Пример:
a = 8
n = 5
Периметр = 26
P.S. код на pascal abc.net