Digger2001
24.03.2023 19:13

1. Ввести числа х, у если х>0. найти сумму иначе произведение writeln (x+y;
2. Найти у = (ниже в первой фотке)
+примеры как надо решать


1. Ввести числа х, у если х>0. найти сумму иначе произведение writeln (x+y; 2. Найти у = (ниже в
1. Ввести числа х, у если х>0. найти сумму иначе произведение writeln (x+y; 2. Найти у = (ниже в

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
mashamelnik28
02.02.2021 22:00

//1

Var

x:integer;

begin

readln(x);

if x>100then x:=x+50 else x:=x*2;

writeln(x);

end.

//2

Var

x:integer;

begin

read(x,y);

if x>y then x:=x*2;

if x<y then x:=x+y;

writeln(x)

end.

Объяснение:

это все что я знаю...
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота