Дана программа на языке Паскаль: Дано целое число. - вопрос №12936711 от alishertursunov 09.06.2022 14:29

Question

Информатика: Дана программа на языке Паскаль: Дано целое число. Если оно является положительным, то прибавить к нему 4; если отрицательным, то вычесть из него 6; если нулевым, то заменить его на 34. Вывести полученное число. program Familia; var a: integer; begin writeln( Введи число

alishertursunov · Answer

program Familia; var a: integer; begin writeln( Введи число a ); readln(a); if a 0 then  a := a + 4; if a 0 then     a := a - 6;if a=0 then   a := 34;writeln(a); end....