Дано целое число а. если значение а = 0, то необходимо увеличить его на 3, иначе присвоить а значение, равное 0. составьте на паскале программу для решения этой . программа должна иметь дружественный интерфейс

ABBADON369 ABBADON369    3   09.09.2019 19:40    4

Ответы
oliver9999 oliver9999  07.10.2020 03:52
Program p17;
var A:integer;
begin
readln (A);
if A=0 then A:=A+3 
else if A<>0 then A:=0;
writeln (A);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика