logo
Войти Регистрация Спроси ai-bota


матькорейцев2345
18.10.2020 18:50

Составить программу удваивающую значение переменной, а, если а> 5, a< =1 и утраивающую значение, а, если 1

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
coolbembel
coolbembel
16.04.2022 09:12
12. Что будет выведено на экран в результате работы следующего цикла (k – целая переменная)? а) k = 1 while k 5: print( k, end= ) k += 1 ответ: б) k = 4 while k 10: print( k*k,...
Yury28
Yury28
11.10.2020 09:25
Procedure F(n: integer); begin writeln( * ); if n 0 then begin F(n-2); F(n-2); F(n div 2); end end;...
SmartGirl555
SmartGirl555
03.08.2022 15:25
Даны два целых числа. Написать программу, которая определяет их равенство. Если числа равны, то программа должна вывести фразу «числа одинаковые», если не равны, то «числа разные»....
aresha134589870
aresha134589870
11.10.2021 01:25
Написать код на паскале! все голову сломала: ( даны массивы н1..н5 шифры предприятий 1ой группы нн1..нн8 шифры предприятий 2ой группы n1..n5 наименование продукций предприятий...
щгоот
щгоот
28.12.2020 15:16
Определить является ли число a чётным (алгоритм на языке прогр)...
vikapuzya200
vikapuzya200
12.07.2020 00:19
Размер файла у растровых изображений ..?.. , чем у векторных графических редакторов....
катя184
катя184
03.12.2022 19:38
Прочитай текст и выполни задание. Компьютер придумали и создали по аналоги с человеком. Установи соответствия между устройствами компьютера и органами человека. Выбери верные ответы...
nikitagiop
nikitagiop
13.10.2020 21:58
Запишите команду присваивания, в результате выполнения которой логическая переменная t получает значение true, если выполняется указанное условия, и значение false в противном...
валерия832
валерия832
13.10.2020 21:58
Впаскаль авс: найти плотность тела, если известны масса и объём...
alixegp073ii
alixegp073ii
30.08.2020 19:34
Подчеркнуть грамматические основы предложений айгерим начинает вступление к песне, необычно по своеобразию напева.абай снова погружается в грёзы, не сводя глаз с любимой. его слух...
Ответ:
kamakoshkina
08.10.2020 19:09
Program Z1;
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then a:=a*2;
If (1writeln (a);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота