Составить программу удваивающую значение переменной, а, если а> 5, a< =1 и утраивающую значение, а, если 1
Shadow69moon
3
25.09.2019 19:40
0
Другие вопросы по теме Информатика
Kachelda
31.01.2021 17:22
татар13
31.01.2021 17:25
Yaroslav483
02.05.2019 16:35
ShurenkoPasha12
02.05.2019 16:41
llizka094
14.12.2020 10:52
mamba211004
14.12.2020 10:52
марьям2789
14.12.2020 10:53
maximb164mjqj
14.12.2020 10:53
Популярные вопросы
- Выполните вычитание 5 целых 1\4-1 целую 3\8 обяснить как это...
3 - 4строчки про осень (не стих) что бы слово осень не повторялась,...
2 - Ккакому царству относятся бактерии: а)царство растений б)царство...
1 - Три речення різні за метою висловлювання....
3 - Дорога,лопата,яблоко,яблоня.составить предложение с каждым словом...
1 - Какие животные состоят только из двух слоев клеток-эктодермы...
1 - Чем занимались менялы, ростовщики, банкиры? почему возникли...
3 - 1. прочитайте предложение и выполните в первые дни марта погода...
3 - При какую скорость набирает тело за первые 3 с свободного падения...
1 - Разделяя слова черточками на слоги : попугай, попугаи, стройка,...
3
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then a:=a*2;
If (1writeln (a);
End.