Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
airfgh
01.01.2020 14:03 •
Информатика
20 составить программу, которая вводит 3 любых числа печатает только положительно. напишите все понятно в ! 20
Показать ответ
Ответ:
rudens2007
08.10.2020 11:11
Var
num:real;
begin
for var i:= 1 to 3 do begin
read(num);
if (num < 0) then
continue
else
writeln(num);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nikalime156
29.01.2021 09:23
«Внешность» категориясына кіретін командалардыанықтаңыз. ...
Александрик397
23.06.2022 07:19
3. Найти сумму всех кратных 3 или 5 ниже 10. Заполните таблицу трассировки...
133fdsf7za
16.12.2021 19:55
Найти произвидение первых трех цифр четырехзначного числа...
akame505
01.10.2021 12:15
Напишите программу которая в последовательности натуральных чисел определяет количество всех чисел, кратных 6 и оканчивающихся на 0. программа получает на вход натуральные числа,...
яяя612
01.10.2021 12:15
Напишите программу определить кол-во и сумму четных чисел .последовательность чисел оканчивантся 0.программа должна вывести 2 числа ,первое: длину,последовательность ,второе...
Danelpos
30.06.2021 03:16
Дано время суток,вывести фразу доброе утро,добрый день,добрый вечер,доброй ночи. паскаль...
red011
30.06.2021 03:16
По номеру месяца вывести его название и время года,паскаль...
Craftrik
26.06.2021 07:15
1. ошибка, при наличии которой программа является синтаксически правильной и даже работает, но выполняется некорректно, то есть не решает поставленной перед ней : зацикливается...
katevina
26.06.2021 07:15
Задано действительное число k. eсли к отрицательное то значение x вычислить по формуле x=k^2, если к больше нуля или равно нулю- по формуле x=k^3 написать программу на языке...
caesar2
17.10.2021 22:56
Решить 3 по программированию! имеется массив целых чисел размером n. заполнить с клавиатуры, как положительными, так и отрицательными. вывести его на экран. посчитать сумму положительных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
num:real;
begin
for var i:= 1 to 3 do begin
read(num);
if (num < 0) then
continue
else
writeln(num);
end;
end.