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


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

danilstal14 danilstal14    1   02.02.2021 21:07    1

Ответы
maslennikovavi2 maslennikovavi2  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.

Объяснение:

это все что я знаю...
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика