Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
nat102sult
09.07.2022 23:49 •
Информатика
Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.
Показать ответ
Ответ:
ангел813
01.10.2020 20:56
Var a:array[1..3] of integer;
i:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i]>0 then writeln(sqr(a[i]));
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NikitaAadvanser
22.10.2020 00:03
ТЕСТ ПО ИНФОРМАТИКЕ, Во Запишите программную строку для описания целочисленного массива по имени ABS состоящего из 15 элементов Во Запишите программную строку для...
vikafemur
01.12.2020 02:09
Создайте таблицу “озера европы”, используя следующие данные по площади (кв. км) и наибольшей глубине (м): ладожское 17 700 и 225; онежское 9510 и 110; каспийское...
азат61
27.02.2020 08:17
Когда в школе объявили день вежливости каждый мальчик из 5 а класса поздоровался за руку с каждой девочкой из своего класса всего при этом было 77 сколько учеников...
ириша182300
12.03.2020 20:29
Примеры обработки обработки информации с примерами и правилами....
ЕвгенийМатвеев
26.05.2022 03:05
Напишите на python дано вещественное число a. вычислить f(a), если f(x) = x2 +4x+5 , при x 2; в противном случае f(x) = 1/(x2 + 4x + 5)....
julyazolotko20
01.02.2020 00:00
Cоставить блок схему для решения . дано число х. увеличить его на 5 если оно положительно,а в противном случае вывести отрицательное число...
rjdfy
10.08.2022 13:21
Составьте блок схему определяющую остаток от деления числа а на число б...
Rona1234
18.03.2022 04:14
№1. используя таблицу символов, записать последовательность десятичных числовых кодов в кодировке windows для следующих данных. таблица символов отображается в редакторе...
Xela936
18.03.2022 04:14
Чем отличается чтение от прослушивания музыки с точки зрения формы принимаемой информации?...
Mrkronomax
18.03.2022 04:14
Внутренняя память который хранит информацию для начальной загрузки компьютера...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i]>0 then writeln(sqr(a[i]));
readln;
end.