Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
издательство1
12.04.2020 15:33 •
Информатика
Даны 2 действительных числа.возвести в квадрат те из них,значение которых неотрицательны.числа вводятся пользователям с клавиатуры.результат работы программы вводится на экран
Показать ответ
Ответ:
аььарпашишки
28.09.2020 16:33
Var
a,d,f,g: integer;
begin
readln(a,d);
if a>0 then begin f:=sqr(a); writeln(f); end;
if d>0 then begin g:=sqr(d); writeln(g); end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
chukovsema
30.11.2020 10:15
3. Складіть блок-схему фрагмента алгоритму з вкладеними розга- луженнями, з яких зовнішнє е неповним, а внутрішнє - повнимПоясніть виконання складеного фрагмента.можно писать...
69Unicorn69
12.04.2023 14:01
Для какого числа x истинно высказывание x 1 /\ ((x 5)→(x 3)) выберите один ответ: a. 2 b. 3 c. 1 d. 4...
Зухриддин11
23.11.2020 04:55
Pascal. ввести с клавиатуры 2 натуральных числа – n и m. проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). в качестве ответа...
JaLOX22848
19.12.2021 15:14
256- цветный рисунок содержит 1 кбайт информации. из скольки точек он состоит?...
Катюшка311001
24.12.2020 07:22
Втаблице запросы к поисковому серверу. для каждого запроса указан его код — соответствующая буква от а до г. расположите коды запросов слева направо в порядке возрастания...
strimersakarinа
24.12.2020 07:22
Заполните таблицу по образцу предмет свойство канал орган. 1 будильник звон слух ухо 2 3 4 5...
banni11
13.12.2022 10:59
Запишите основания и алфавиты систем счисления: десятичная двоичная восьмеричная шестнадцатеричная...
milankagl
13.12.2022 10:59
Ваквариуме плавают 32 рыбы. сколько бит информации несет сообщение о том, что в аквариуме присутствует золотая рыбка? с решением,...
demidboevoff
17.08.2021 14:14
Напишіть приклади алгоритму (рецепт) з і...
juljadob54
16.01.2023 13:14
Вкоробке лежат 16 карандашей разного цвета . сколько информации несёт сообщение о том, что достали синий карандаш ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,d,f,g: integer;
begin
readln(a,d);
if a>0 then begin f:=sqr(a); writeln(f); end;
if d>0 then begin g:=sqr(d); writeln(g); end;
end.