Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Аляяяя0604
21.01.2020 20:04 •
Информатика
1)составить программу, которая, если введенное число отрицательное меняет его на противоположное 2)даны три целых числа. найти количество положительных чисел в исходном наборе. !
Показать ответ
Ответ:
Nastya21724
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 оценок)
Популярные вопросы: Информатика
Valeria151415
25.02.2020 19:03
Что значит сделать анализ игры? Как его сделать?...
skosachyov
12.10.2021 13:37
Для изготовления известково – цементного состава необходимо А% известкового теста, В% белого цемента, С% поваренной соли, D% - пигмента, остальное составляет вода. Составить...
рената1239305
22.03.2022 22:24
Определите, к какому именно этапу относятся приведённые шаги...
sasha123123476
01.06.2021 21:08
ЗАДАНИЕ 3ТЕКСТ ЗАДАНИЯДля чего предназначен модуль Стили ?...
ulaborodina57
11.06.2021 08:20
Вопросы на картинке. 1) Для поиска с использованием вторичных индексов можно использовать следующий код:2) Для сравнения между собой двух вкладок в наборе данных можно использовать...
Arturkim04
10.03.2020 05:00
1. Яке розширення має файл, у якому зберігається шаблон документа? А) dotx; Б)doc; В) dotm; Г) docx. 2. Вкажіть властивості напису: А) Name; Б) Caption; B)Height; Г) Visible;...
agat2003
09.12.2021 10:13
На фото все хорошо видно ...
HateLove7
22.01.2022 19:50
Информатика 9 класс Семакин параграф 23 стр.174 подготовить сообщение или презентацию по темам заданий 1-15 подскажите ....
Nicoleta23
19.08.2020 09:32
, сделать надо все в паскале ...
Дако031204
15.09.2022 22:19
Известно, что площадь комнаты прямоугольной формы равна S квадратных метров. Сколько метров линолеума надо купить, если известно, что ширина комнаты равна ширине линолеума...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.