Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
akink2017
06.11.2021 05:25 •
Информатика
Составить программу для нахождения периметра и площади квадрата(3 переменных)через pascalabc.net
Ответ:
anuynilonoca
07.10.2020 06:01
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('a=');
Writeln('P=',4*a,', S=',a*a)
end.
Пример
a= 3.2
P=12.8, S=10.24
0,0
(0 оценок)
Популярные вопросы: Информатика
vgfhdijubvn
12.08.2022 19:34
Рассмотрите следующее описание функции: function f(x: integer): integer; begin if x =10 then f: =1 else f: =f(f(x-1)) end; каким будет значение f(10)?...
1234567da
12.08.2022 19:34
Procedure p(x; var y: integer); begin y: =x+1 end; procedure q(x: integer; var y: integer); begin y: =x+1 end; procedure r(x, y: integer); begin y: =x+1 end; для каждой из процедур...
androsova2016
24.12.2021 19:00
Составьте ребус к слову робо-сумо. НАДО...
annyakristina
23.10.2022 00:30
Количество значащих нулей в двоичной записи десятичного числа 152 равно...
стрелыамура2
22.11.2021 15:46
Напишите эти предложения во множественном числе: (изменить надо артикль, существительные, местоимения, глаголы. there is one zoo in that city. it is big. this woman has a child....
darkbluefox
28.07.2020 11:53
Напишите 10-15 предложений о том, какой вы ответственный покупатель.у меня не хватает фантазии, ....
Chundokova
16.01.2023 22:55
50 ! )) чтобы нагреть на 10 к 10 г идеального газа необходимо затратить 1452,5 дж при незакрепленном поршне или 1037,5 дж теплоты при закрепленном. определите молярную массу этого...
204448
13.01.2020 22:20
Вк - медиана треугольника авс, тогда угол авк равен углу квс? верно ли это суждение?...
snysor
16.11.2021 02:59
Можете придумать акровірш з любым словом только на украинском) и желательно чтобы слово было длинное заранее )...
nikitamakarov3
18.11.2020 23:32
Язык только единственное число...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('a=');
Writeln('P=',4*a,', S=',a*a)
end.
Пример
a= 3.2
P=12.8, S=10.24