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

lana231075 lana231075    1   03.06.2019 11:00    5

Ответы
vladplotnikov2 vladplotnikov2  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика