PASCAL
1. Напишите фрагмент программы ветвления: дано число а, если оно меньше 10, то увеличить в 2 раза, иначе уменьшить на 15.
2. Напишите фрагмент программы ветвления: даны числа a и b. Если a или (or) b кратно 3, то s:=2(a+b) иначе s:=a+b-ab, Вывести s.
Ответы
Ответ дал:
0
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
всё работает.
Ответ дал:
0
затрудняюсь с решением.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад