срочно!!!!! Составить программу удваивающую значение переменной, а, если а>5, a<=1 и утраивающую значение, а, если 1<а<=5.
с блок схемой нарисовать
Ответы
Ответ дал:
0
Program Z1;
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then a:=a*2;
If (1writeln (a);
End.
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then a:=a*2;
If (1writeln (a);
End.
Ответ дал:
0
Program Z1;
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then b:=2*a;
If (1writeln (b);
End.
Так лучше!!!!!
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then b:=2*a;
If (1writeln (b);
End.
Так лучше!!!!!
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад
9 лет назад