Как и с чего человек работает с компьютером? умоляю . 20 . 6 класс. но по моему легко
272
478
Ответы на вопрос:
Человек работает с компьютером с мыши (для компьютера), с интернетом и с клавиатуры.
Ну, в общем, лови решение. { 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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
anashakirova0925.06.2023 05:23
-
rouberuplay28.04.2023 08:35
-
armate11.08.2021 08:39
-
gentleman205.06.2020 16:38
-
Костя22833707.04.2022 05:25
-
kristinamirnaya23.12.2020 19:20
-
CloudSmile03.03.2020 16:55
-
Куколка11122.05.2020 08:40
-
твоёсолнце708.10.2022 07:55
-
sergeicyupka06.10.2022 11:46
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.