Оператор Write ('sister');выводит на экран :
1)sister
2)Write ('sister');
3)'sister'
4)Write(' ')
5)door

172

451

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

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

nikolya5

Информатика

4,6(88 оценок)

Объяснение:

Выводит на экран sister 1 вариант ответа

геля217

Информатика

4,6(51 оценок)

Ну, в общем, лови решение. { freepascal 2.6.4} program test; uses crt; var a, b, c, d : integer; f : longint; procedure swap (var x : integer; var y : integer); var z : integer; begin z : = x; x : = y; y : = z; end; function nod (m, n : integer) : integer; begin while m< > n do begin if m> n then m: =m-n else n: =n-m; end; nod : = m; end; function max (a,b : integer) : integer; begin if a> b then max : = a else max : = b; end; function min (x, y, z : integer) : integer; var m : integer; begin m : = x; if y< m then m : = y; if z< m then m : = z; min : = m; end; function mypow (a, b : integer) : integer; var e, f : integer; begin f : = 1; for e: =1 to b do f : = f*a; mypow : = f; end; function fact(a : integer) : longint; var i : integer; res : longint; begin res : = 1; for i : = 1 to a do res : = res*i; fact : = res; end; begin clrscr; writeln('test of function swap'); write('input a: '); readln(a); write('input b: '); readln(b); swap(a, b); writeln('a=', a, ', b=', b); writeln; writeln('test of function nod'); write('input a: '); readln(a); write('input b: '); readln(b); c : = nod(a, b); writeln('nod(', a, ',', b, ')=', c); writeln; writeln('test of function max'); write('input a: '); readln(a); write('input b: '); readln(b); c : = max(a, b); writeln('max(', a, ',', b, ')=', c); writeln; writeln('test of function min'); write('input a: '); readln(a); write('input b: '); readln(b); write('input c: '); readln(c); d : = min(a, b, c); writeln('min(', a, ',', b, ',', c, ')=', d); writeln; writeln('test of function pow'); write('input a: '); readln(a); write('input b: '); readln(b); c : = mypow(a, b); writeln('pow(', a, ',', b, ')=', c); writeln; writeln ('test of function fact (not large than 12! )'); write('input a: '); readln(a); f : = fact(a); writeln(a, '! =', f); writeln; readkey; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.