• ПОМОГИТЕ ПОЖАЛУЙСТА, НУЖНО ДО ЗАВТРА! ДАЮ 99 БАЛЛОВ!
    1. Выполните следующие задания:
    a) Найдите ошибки в записи оператора ветвления, запишите правильный вариант фрагмента программы:
    if x:=y then;
    x:=0;
    y:=0; end;
    else
    write(z);
    b) По блок-схеме составьте программу. (Блок-схема в прикреплённом файле)
    2. Даны три числа. Возвести в куб те из них, которые нечетны. Остальные оставить без изменения.
    3. Нарисовать на плоскости (х,у) область, в которой истинно указанное выражение: (y>=x) and (y+x>=0) and (y<=1).

    question img

Ответы 6

  • if c mod 2<>0 then Write (c*c*c) else Write (c)
    • Автор:

      jadaifjb
    • 6 лет назад
    • 0
  • End.
  • спасибо огромное за твой ответ и труд
    • Автор:

      kash
    • 6 лет назад
    • 0
  • Пожалуйста.
  • 1. if x=y then begin x:=0; y:=0; end;             else write (z);2. Var a,b,c,d:Integer;   Beginread (a,b,c);if a>b then d:=a           else d:=b;if c>d then d:=c;Write (d)end.
    • Автор:

      tyler24
    • 6 лет назад
    • 0
  • 1 а)if x=y  then begin x:=0; y:=0; end else write(z);б)var a,b,c,d:integer;beginwriteln('a, b, c:');readln(a,b,c);if a>b then d:=a else d:=b;if c>d then d:=c;writeln(d);end.Пример:a, b, c:2 8 582)var a,b,c:integer;beginwriteln('a, b, c:');readln(a,b,c);if a mod 2 <> 0 then a:=a*a*a;if b mod 2 <> 0 then b:=b*b*b;if c mod 2 <> 0 then c:=c*c*c;writeln('a = ',a,' b = ',b,' c = ',c);end.Пример:a, b, c:5 2 7a = 125 b = 2 c = 3433)Решение - в прилагаемом файле.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years