ЯЯЯ1118526
17.04.2021 23:58

Решите на языке pascal abc net. f3. дано целое число. если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. вывести полученное число. f5. даны три целых числа. найти количество положительных и количество отрицательных чисел в исходном наборе. f15. даны три числа. найти сумму двух наибольших из них.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
zulyakhalilova
01.10.2020 18:32
F3 uses crt; var a:integer; begin readln(a); if (a>0) then begin a:=a+1; end; if (a<0) then begin a:=a-2; end; if (a=0) then begin a:=10; end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота