Войти Регистрация Спроси ai-bota

Var i, x:integer;
Begin
x:=2;
for i:=100 to 1000 do x:= - x;
write (x);
End.
ответ:

Ответ:

DlCE17

13.10.2020 08:02

Данная программа вывела: -2

0,0(0 оценок)

Ответ:

Шурочек

13.10.2020 08:02

В програме было сделано ответ:-2

0,0(0 оценок)

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

SHTUJDLXP

26.01.2021 16:56

Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 9. var x, a,b: integer; begin readln(x); a: =0; b: =0; while x 0 do begin a: =a+1;...

strume54

15.12.2022 15:51

По заданной матрице составить вектор, элементы которого равны произведениям элементов соответствующего столбца.решение на с++: //#include stdafx.h #include #include #include...

Kotova111111777

30.10.2022 04:10

Почему я не могу писать ответы на во...

knarik88

18.10.2021 05:12

Дано: формула: решение: сколько кг молока в трехлитровом ?...

Jinx2002

18.10.2021 05:12

Найдите наименьшее значение квадратного трехчлена x^2-6x+11 (с вычислениями)...

мармеладка49

18.10.2021 05:12

Умаши 95 рублей она купила 2 ручки по 12 рублей каждая и пять тетрадей по 8 рублей каждая сколько сдачи получит мага...

polinkaa777

18.10.2021 05:12

Уокна стоит столик . схема предложения и сколько слов .первый класс...

PomogyBratan

18.10.2021 05:12

Укажи величины равные 7 тоннам. вот варианты 700 кг, 700ц,70ц,70000кг,7000кг,7000ц. какие варианты ....

sheykinayulya

18.10.2021 05:12

Определите падеж имен существительных? в горах пасётся много овец....

2000lev94

18.10.2021 05:12

Указать не менее 3 признаков систем. указать плюсы и минусы систем....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку