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.

0 0

3 года назад

Добрый вечер! Помогите пожалуйста решить: ((0 & 0 )V0)&(1 V 1). Заранее спасибо!

Шанелька [350]

0 умножить на 0=0
0+0=0 в первой скобке
Неважно, что получится во второй (хотя там 1) умножаем на 0 =0

0 0

3 года назад

Помогите написать программу паскаль абс вот задача Мама выдала Анне некоторую сумму денег и попросила ее купить 20 тетрадей и 5

korol1987

Var
st,sr,kd:integer;
begin
readln(st,sr,kd);
if (kd>=st*20+sr*5) then writeln(kd-st*20-sr*5)
else writeln('Анне не хватит денег');
end.

0 0

3 года назад