Ответы
Ответ дал:
0
1)
Var
x,y:real;
Begin
Write('x = ');
ReadLn(x);
if x > -1 then y:=2*x-3
else y:=5*x*x;
WriteLn('y = ',y);
End.
Проверка:
x = 5
y = 7
x = -3.4
y = 57.8
2)
Var
A:integer;
Begin
Write('Введите целове число: ');ReadLn(A);
if A mod 2 <> 0 then Write('Число - нечётное')
else Write('Число является ЧЁТНЫМ')
End.
Var
x,y:real;
Begin
Write('x = ');
ReadLn(x);
if x > -1 then y:=2*x-3
else y:=5*x*x;
WriteLn('y = ',y);
End.
Проверка:
x = 5
y = 7
x = -3.4
y = 57.8
2)
Var
A:integer;
Begin
Write('Введите целове число: ');ReadLn(A);
if A mod 2 <> 0 then Write('Число - нечётное')
else Write('Число является ЧЁТНЫМ')
End.
Приложения:
![](https://st.uroker.com/files/627/627aa68824acacf9edd7c28a1d57775c.png)
Ответ дал:
0
А вторая задача?
Ответ дал:
0
даже блок схема, круто
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад