PASCAL
1. Напишите фрагмент программы ветвления: дано число а, если оно меньше 10, то увеличить в 2 раза, иначе уменьшить на 15.
2. Напишите фрагмент программы ветвления: даны числа a и b. Если a или (or) b кратно 3, то s:=2(a+b) иначе s:=a+b-ab, Вывести s.
ира1005
1
07.04.2020 22:56
0
Другие вопросы по теме Информатика
Диана149018
12.08.2019 01:30
Елизавета5820
12.08.2019 01:30
Pawel10hor
12.08.2019 01:30
pasatnuk
21.04.2021 11:43
seremet1984
21.04.2021 11:43
yanapetelyakp070y8
16.09.2019 12:50
георг9
16.09.2019 12:50
adilete840
16.09.2019 12:50
Популярные вопросы
- Нужно! при изучении макроэволюции были выделены следующие закономерности:...
3 - Соч по всемирной 6 кл 1 четверть да 30...
3 - График функции y=х2-3х-1 принадлежит точка с координатами...
1 - Выпишите средства связи между первым и вторым, вторым и третьим, третьим...
2 - Задана пропорция x : 8 = 32 y . найдите значение x*y...
2 - 1.зона сегментарной иннервации.2. рефлексы замыкающие в спинном мозге....
2 - Дом высотой 9,2 можно закрыть монеты диаметром 2,4 см если её держать...
1 - Сочинению на тему человек даётся не только жизнь один раз но и совесть...
2 - ответить сколько сможете ! заранее ! обществознание ...
1 - Водгук наталля каліцкая “асенняя мелодыя”...
1
1) Program (тут напиши название своей программы);
var a, b:integer;
begin
write('введите число а = ');
readln(a);
if a<10
then a:=a*2
else a:=a-15;
writeln('a = ',a);
end.
Вывод:
введите число а = (ввел тут число 6)
a = 12
всё работает.