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.
достоверная- земля круглая
недостоверная- на марсе есть жизнь
Обьективная- будут проводиться соревнования среди 2-3 классов
необьективная- примерно с час я приду
Если система счисления имеет основание p, то при увеличении количества разрядов на 1, диапазон представления расширится в p раз.
При увеличении количества разрядов на 2, диапазон представления расширится в p² раз.
При увеличении количества разрядов на n, диапазон представления расширится в pⁿ раз.
Эта строчка присваивает значение переменной i
В данном случае, первоначальное значение переменной 0
Тебе нужно найти количество чисел кратных 10
И если число кратно 10, то он будет присваивать к предыдущему значению +1. К примеру:
Вводим число 10
Оно кратно 10
Тогда i = 0 + 1 = 1
Вводим число 20, оно также кратно 10, но предыдущее значение i уже 1, а значит в ходе выполнения программы:
i = i предыдущее + 1 = 1 + 1 = 2
И так далее