1. Выполните классификацию программного обеспечения, отнеся его к одной из четырёх групп: A. системное ПО, B. прикладное ПО общего назначения, C. прикладное профессионально ориентированное ПО, D. системы программирования. Примеры программного обеспечения для выполнения задания: 1. Архиваторы, 2. табличные процессоры, 3. браузеры Интернета, 4. программы обслуживания жесткого диска, 5. системы мультимедиа, 6. образовательные программы, 7. системы программирования на СИ, 8. операционные системы, 9. драйвера, 10. текстовые процессоры, 11. компилятор-интерпретатор Бейсика, 12. антивирусные программы, 13. табличные процессоры, 14. игры, 15. программы профессиональных математических расчетов, 16. бухгалтерские программы, 17. системы автоматизированного проектирования, 18. системы программирования на Делфи, 19. графические редакторы, 20. программы обработки звуковой и видео информации, 21. системы программирования на Паскале
Ответы
//Это можно стереть. Если в N есть 0 то тогда программа выведет NO.
program z1;
var b,c,d,i,s,l:integer;
a:string;
begin
read(a);
b:=length(a);
s:=StrToInt(a);
c:=0;
for i:=1 to b do
for i:=1 to b do
begin
d:=StrToInt(a[i]);
if d=0 then l:=1;
end;
if l=0 then begin
for i:=1 to b do
for i:=1 to b do
begin
d:=StrToInt(a[i]);
if (s mod d)=0 then c:=c+1;
end;
end
else
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (c<>b) then write('P');
end.
program z1;
var b,c,d,i,s,l:integer;
a:string;
begin
read(a);
b:=length(a);
s:=StrToInt(a);
c:=0;
for i:=1 to b do
for i:=1 to b do
begin
d:=StrToInt(a[i]);
if d=0 then l:=1;
end;
if l=0 then begin
for i:=1 to b do
for i:=1 to b do
begin
d:=StrToInt(a[i]);
if (s mod d)=0 then c:=c+1;
end;
end
else
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (c<>b) then write('P');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
System.Collections.Generic;
var
a: List<integer> := new List<integer>(); //Объявляем и создаём динамический массив
i: integer;
begin
repeat
readln(i);
if (i = 0) then
break
else
a.Add(i);
until (False); //Прекращаем цикл, когда рак (break) в цикле свиснет (False можно заменить на "2 + 2 = 5"
writeln(#13); //Вставляем 2 пустые строки
foreach i in a do //Выводим исходный массив
write(i, ' ');
writeln();
foreach i in a do //Выводим конечные числа, нет задачи массив изменять
write(abs(i), ' ');
end.