Регистрация
vadim1231231
20.02.2023 18:55
Информатика
Есть ответ 👍

Найдите значение переменной y после исполнения серии команд (яп паскаль): x: =4; y: =5; if x> 0 then if y< 8 then y: =sqr(x) else y: =2*x+1 else y: =0;

173
446
Посмотреть ответы 2

Ответы на вопрос:

DenKovYa
DenKovYa
4,8(63 оценок)
Значение переменной у будет равно 16
kokokola20
kokokola20
4,7(64 оценок)
Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию! №1

begin

  readseqinteger(4).where(t -> t.iseven).count.println

end.

№2

begin

  var (a, b, c) : = readreal3('введите a, b, c: ');

  var d : = b * b - 4 * a * c;

  if d < 0 then println('нет корней')

  else

    if d = 0 then println('x =', -b / 2 / a)

    else

    begin

      d : = sqrt(d);

      print('x1 =', (-b - d) / 2 / a);

      println('x2 =', (-b + d) / 2 / a);

    end

end.

№3

begin

  var (x, y) : = readreal2;

  if x = 0 then

    if y = 0 then println('начало координат')

    else println('ось oy')

  else

    if y = 0 then println('ось ox')

    else

      if x < 0 then

        if y > 0 then println('ii четверть')

        else println('iii четверть')

      else

        if y > 0 then println('i четверть')

        else println('iv четверть')

end.

Популярно: Информатика