Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Поля34232
09.10.2022 21:47 •
Информатика
Запиши программу в паскале для вычисления площади прямоугольника со сторонами a и p.
Показать ответ
Ответ:
koc12
20.08.2020 22:26
Program p1;
uses srt;
var a,p,sum:integer;
begin
clrscr;
writeln("read p and a");
read(p);
read(a);
sum:=p*a;
write(sum);
readkey;
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
Мадина0911
20.04.2022 01:53
Опишите последовательность действий для включения видео- и графических объектов в видеофильм...
TomaSharik
26.09.2022 10:40
На пограничном контроле в стране n рано утром работали всего три пограничника. первому пограничнику нужно 5 минут, чтобы проверить паспорт, второму – 7 минут, третьему...
yuliyasss
16.05.2021 23:04
Язык программирования c# в чём отличие от с++...
mariyudina95
24.12.2020 22:39
Определите значение переменной c после выполнения следующего фрагмента программы. ответ округлите до целого числа. паскаль a : = 30; b : = 6; a : = a/5 + b/3; if...
gerakostya
27.04.2022 10:31
4. а = 0, в = 1. в какой из ниже записанных формул результатом будет 1 (истина)? а) ¬ в б) а и в в) ¬ (а или в) г) ¬ а или ¬ в с решением...
ldudin
02.08.2022 03:10
7. найдите значение переменной s после выполнения фрагмента программы на языке программирования turbopascal: s : = 2; k : = s * 3; s : =sqr (k) - 1; s : = s – k;...
89286666666
05.12.2021 15:49
1. имеется пронумерованный список деталей: 1) шуруп, 2) гайка, 3) винт, 4) гвоздь, 5) болт. составить программу, которая по номеру детали выводит на экран ее название....
mashaaa98
25.05.2023 01:02
Даны действительные числа a, b, c. удвоить эти числа, если a...
Mashylina
25.05.2023 01:02
10. что будет результатом выполнения фрагмента программы на языке программирования turbopascal: s : = 0; for i : = 1 to n do for j : = 1 to n do ifi + j n + 1 then...
лерапуся
22.10.2022 07:55
После выполнения программы переменная b принимает значение 3. b = 0 for k = 1 to 5 if a(k) 0 then b= b+1 next k это возможно, если используется набор элементов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses srt;
var a,p,sum:integer;
begin
clrscr;
writeln("read p and a");
read(p);
read(a);
sum:=p*a;
write(sum);
readkey;
end;