2. ПО – совокупность программ, выполняемых компьютером. Роль – дает возможность пользоваться вычислительными мощностями
3. Системное и прикладное ПО (и иногда инструментальное)
4. Взаимодействие пользователя с программами, взаимодействие программ и устройств, распределение ресурсов компьютера между запущенными процессами
5. Установка создаёт файлы ОС, загрузка читает уже созданные
6. Компьютер не смог найти операционную систему на диске, с которого он загружается. Может быть связано с повреждением диска, с неверными параметрами загрузки или с использованием не загрузочного диска
Var a: array [1 .. 10] of integer; i, Count, C, tmpLast, tmpFirst: integer; begin write('Введите число C: '); readln(C); writeln; for i := 1 to 10 do begin write('a[', i, '] = '); readln(a[i]); if a[i] = C then begin Count := Count + 1; tmpLast := i; end; end; writeln; if (Count = 0) then writeln('В массиве нет числа равное С') else begin writeln('В массиве нашлось число, равное С'); if (Count = 1) then writeln('Первое и единственное число в позиции a[', tmpLast, ']') else begin i := 0; repeat i := i + 1; tmpFirst := i; until (a[i] = C); writeln('Первое такое число a[', tmpFirst, ']'); writeln('Последнее такое число a[', tmpLast, ']'); end; end; readln; end.
2. ПО – совокупность программ, выполняемых компьютером. Роль – дает возможность пользоваться вычислительными мощностями
3. Системное и прикладное ПО (и иногда инструментальное)
4. Взаимодействие пользователя с программами, взаимодействие программ и устройств, распределение ресурсов компьютера между запущенными процессами
5. Установка создаёт файлы ОС, загрузка читает уже созданные
6. Компьютер не смог найти операционную систему на диске, с которого он загружается. Может быть связано с повреждением диска, с неверными параметрами загрузки или с использованием не загрузочного диска
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.