Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
natashazlata
06.10.2021 08:33 •
Информатика
1)составить программу, которая, если введенное число отрицательное меняет его на противоположное 2)даны три целых числа. найти количество положительных чисел в исходном наборе. !
Показать ответ
Ответ:
Sveto4ka342
07.07.2020 01:16
Var
a:integer;
begin
readln(a);
if a<0 then a:=abs(a);
writeln(a);
readln;
end.
var
a,b,c,d:integer;
begin
c:=0;
readln(a,b,c);
if a>0 then c:=c+1;
if c>0 then c:=c+1;
if b>0 then c:=c+1;
writeln(c);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Помогитемне11111119
23.03.2021 23:58
мне нужно сделать на Qbasic этот рисунок но я не знаю как это сделать ДАЙТЕ ОТВЕТ ЗАРАНЕЕ...
kocherovavika2005
17.09.2021 12:20
Посмотрите на рисунок выберите, инструмент дающий объектам трехмерный размер...
musalimovvlad
24.10.2020 08:21
ТЕКСТ ЗАДАНИЯ Различия инструментов в 2D-и 3D-программах в том, что двухмерные фигуры рисуются на плоскости, атрехмерныетолько на бумагеВпередв пространстветолько в...
РаскольниковРодион
19.01.2023 03:09
-Вставьте слово, пропущенное в определении. При решении математических или логических задач, осуществляется ... информации, ведущая к получению новой информации ....
olkvochka1707
09.10.2020 19:02
Вычесли значение выражения 1³+2³+3³+4³+5³ в MS Excel...
20AKE04
18.03.2022 20:54
В Берляндии завершилась олимпиада по программированию. . Правила определения победителя следующие: каждый участник по окончании олимпиады имеет результат, который выражается...
Anastas1ya1
23.08.2020 11:38
Сделать программу магического шара : составить список со строками да , нет , не могу сейчас сказать . Приветствовать пользователя и вывести ему сообщение - Задавай...
sungatulin22
01.06.2021 05:37
Как вычислить корень квадратного уравнения для произвольных чисел A,B,C в MS Access 2010. вопрос на ...
vereina
20.06.2021 05:59
решить 3 задачи по информатике....
veronikkot2016
03.10.2020 04:03
Разработайте алгоритм и программу решения для начисления торговой скидки. вводится сумма покупок, программа рассчитывает сумму к оплате с учетом того, что при покупке...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:integer;
begin
readln(a);
if a<0 then a:=abs(a);
writeln(a);
readln;
end.
var
a,b,c,d:integer;
begin
c:=0;
readln(a,b,c);
if a>0 then c:=c+1;
if c>0 then c:=c+1;
if b>0 then c:=c+1;
writeln(c);
readln;
end.