Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
nastalove22
22.08.2022 16:37 •
Информатика
как узнать почту на которой ты играешь в я просто забыл название этой почты в фортнайте
👇
Увидеть ответ
Ответ:
yuliua88
22.08.2022
ответ:
попробуй в настройках , или в самом эпик геймс . но лучше не играй в эту игру
4,5
(57 оценок)
Открыть все ответы
Ответ:
JukovaEleonora
22.08.2022
Ну, в общем, лови решение.
{ 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.
4,6
(4 оценок)
Ответ:
maks737
22.08.2022
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
4,6
(100 оценок)
Это интересно:
К
Компьютеры-и-электроника
25.10.2022
Как словить покемона Кресселию...
З
Здоровье
22.01.2023
Как сделать мешочек с кукурузой: всё, что нужно знать...
П
Питомцы-и-животные
21.04.2022
Как выращивать кроликов ради мяса или шерсти...
Х
Хобби-и-рукоделие
07.07.2021
Как сделать светящуюся палочку: пошаговая инструкция...
Д
Дом-и-сад
03.02.2020
Как быстро и эффективно избавиться от шоколадных пятен...
И
Искусство-и-развлечения
20.08.2020
Школа дома: как не потеряться и организоваться...
О
Образование-и-коммуникации
12.06.2021
Как составить план: секреты планирования на будущее...
К
Компьютеры-и-электроника
20.11.2020
Как создать простую таблицу стилей CSS с помощью Notepad...
К
Компьютеры-и-электроника
09.07.2020
Как уничтожить жесткий диск: советы и рекомендации...
13.09.2021
Как всегда выигрывать спор...
Новые ответы от MOGZ: Информатика
usereldoc9857
22.10.2022
Как представлено число 83₁₀ в двоичной системе счисления? а) 10010011₂ б) 1100101₂ в) 1010011₂ г) 101001₂...
alensozonova
21.06.2022
Назовите основные структурные единицы текстового документа....
vsofa666
15.03.2022
Сгенерировать массив случайных чисел. найти наибольшее и наименьшее число в массиве. поменять местами эти числа и вывести массив заново...
alalosh
15.03.2022
Переведите число 0010011 из двоичной системы в десятичную...
darinabrovender
26.06.2021
Какого символа. не должно быть в имени файла...
рпрпрп1
26.06.2021
Напишите программу, которая вычисляет сумму двух введённых чисел типа integer и переводит её в шестнадцатеричную систему. vbs...
НастяМалюга1
11.10.2021
У чому полягає компіляція програми?...
katerok23092000
30.07.2021
В чем особенность роботов по сравнению с людьми?...
Hatmonu
27.03.2020
Нада сделать морфологический разбор в этом предложении. О, если б голос мой умел сердца тревожить!...
0556372113
27.03.2020
Найдите цели решения системы неравенств:...
MOGZ ответил
Чому поліційний наглядач Очумелов декілька разів змінював прийняте ним рішення?Твір...
Б) Якщо кінь під час Швидкого бігу раптом сіткнеться, то верик випаде із...
В треугольнике ΔDEF угол ∠E=90°. Найди FE, если DE= 9 см и tg∢D=1,5. tdef3.PNG...
найдите угол АВС четырёхугольника АВСD вписанного в окружность, если урол...
Это я, дратутеее. Меня зовут Дашаа...
4. Теледидарда қандай тағам туралы айтылады? 5. Жартылай дайын өнімдерді...
Из каких военно-административных округа состояла территория Монгольской...
5. Спишите, раскройте скобки. В скобках после предложения объясните написание....
Человек дороги. Какова длина дороги, если он км?...
Записати число в стандартному вигляді 1.x=272000 2.x=0,00013 3.27*10^5 4.427*10^-3...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
ответ:
попробуй в настройках , или в самом эпик геймс . но лучше не играй в эту игру