М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
finnolol
finnolol
11.05.2022 01:28 •  Информатика

За­пи­ши­те зна­че­ние пе­ре­ме­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты про­грам­мы. Var u,i: integer;

Begin

u := 40;

For i := 1 to 6 do

u := u – i;

Writeln(u);

End.

👇
Открыть все ответы
Ответ:
Denistypitjin
Denistypitjin
11.05.2022
1. Корпус-устройство в котором закрепляются все остальные устройства и служит защитой от внешних действий.
2. Блок питания-устройство, предназначенное для формирования напряжения, необходимого системе, из напряжения электрической сети.
3. Материнская плата-не знаю правильного определения, но я бы ответил так: устройство с которого производятся все процессы и служит для взаимодействия всех других устройств. 
4. Процессор-центральная часть ПК, это очень сложная микросхема обрабатывающая машинный код, отвечающая за выполнение различных операций.
5. Оперативная память(ОЗУ)-это временная память ПК, необходима для нормальной работы программ и процессов.
6. Видеокарта(зачастую)-устройство преобразующее графический образ, в форму, пригодную для дальнейшего вывода на монитор. 
7. Жёсткий диск-накопитель информации основанный на магнитных пластинах и эффекте магнетизма. Ну, а полегче, это устройство где хранится вся информация, которая находится на ПК.
8. Кулер(вентилятор)- служат для охлаждения системы, находится на процессоре, видеокарте, ну ещё ,иногда, прикреплены к самому корпусу.
4,4(15 оценок)
Ответ:
mix42
mix42
11.05.2022

1) От 10 до 14

2) random(1, 10); random(-10,10); random(50,100);

3)

var a:array[1..100] of integer;

   i, p, o:integer;

begin

 p := 0;

 o := 0;

 for i := 1 to 100 do

   a[i] := random(-20, 20);

 writeln(a);

 for i := 1 to 100 do begin

   if a[i] >= 0 then p := p + 1

   else o := o + 1;

 end;

 writeln('Положительных: ' + p);

 writeln('Отрицательных: ' + o);

end.

4)

var a:array[1..20] of integer;

   b:array[1..20] of integer;

   i:integer;

begin

 randomize;

 for i := 1 to 20 do

   begin

   a[i] := random(1, 5);

   b[i] := random(1, 5);

   end;

 for i := 1 to 20 do begin

   if a[i] = b[i] then begin

   writeln('Номер: ' + i);

   writeln('Значение: ' + a[i]);

   end;

 end;

end.

4,4(99 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ