Предмет: Информатика,
автор: кэтси
срочно!!!!! Составить программу удваивающую значение переменной, а, если а>5, a<=1 и утраивающую значение, а, если 1<а<=5.
с блок схемой нарисовать
Ответы
Автор ответа:
1
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.
Интересные вопросы
Предмет: Геометрия,
автор: ivanablunovskij008
Предмет: Химия,
автор: KrakTV123
Предмет: Химия,
автор: kostuagubinkost
Предмет: Физика,
автор: Учен16
Предмет: Математика,
автор: КаринаЛол
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then b:=2*a;
If (1writeln (b);
End.
Так лучше!!!!!