Спо информатике в паскале программу написать надо
Ответы
без массива:
program n_1;
var a, b, i, n: integer;
begin
a: =0; b: =0;
for i: =1 to 15 do begin
read(n);
if n mod 2 = 1 then a: =a+1
else b: =b+1;
end;
if a> b then writeln('нечетных чисел больше, чем четных')
else writeln('четных чисел больше, чем нечетных');
end.
с массивом:
program n_1;
var a, b, i:
integer; n: array [1..15] of integer;
begin
a: =0; b: =0;
for i: =1 to 15 do begin
read(n[i]);
if n[i] mod 2 = 1 then a: =a+1
else
b: =b+1;
end;
if a> b then writeln('нечетных чисел больше, чем четных')
else writeln('четных чисел больше, чем нечетных');
end.
но честно, не вижу смысла использовать массив.
так-с, на прикладной информатике было следующее:
1. методы оптимизации - линейное программирование, транспортная и т. д.
3. web-дизайн - у нас было скорее интернет-программирование, писали на php.
4. базы данных - в основном на ms access и sql сервер, но
был факультатив по mysql
5. безопасность жизнедеятельности - стандартная техника безопасности на рабочем месте
6. вычислительная - или численные методы, в принципе одно и то же.
8. дискретная - честно, ничего не вспоминается капитально
9.
дифференциальное счисление - производные, интегралы, дифуры
10. защита информации - или информационная безопасность, рассматривали способы защиты информации, как внутри пк, так и за его пределами
12. иностранный язык - no comments
14. информатика -
рассматривали на нахождение наименьшего пути, изучали графы и т. д. (что странно, у следующих студентов был курс excel)
15. информационные технологии - разрабатывали формы документов
16. исследование операций - в общем, примерно то же самое, что и в мо
17. россии
- в основном 19 век
20. 2 ( анализ) - включала в себя диф. исчисление
28. операционные системы - работали на linux
32. программирование - c#
37. язык делового общения
39. системы искусственного интеллекта - пролог
41.
социология и политология
43. теория вероятностей, статистика - нормальное распределение до сих пор не могу забыть
47. - 1 семестр, в основном изучали электромагнетизм
48. культура
49. философия
51. экология
53. предприятия
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Укажите сочетание клавиш позволяющих осуществить быстрый переход в окно
Запиши число 1CD16 в десятичной системе счисления!
const n = 10;
var ar: array[1..n]of integer;
i,j,tmp: integer;
begin
randomize;
write('массив до сортировки: ');
for i: =1 to n do
begin
ar[i]: =random(101)-50;
write(ar[i], ' ');
end;
for i: =1 to n do
begin
for j: =i to n do
begin
if(ar[i] > ar[j])then
begin
tmp: =ar[i];
ar[i]: =ar[j];
ar[j]: =tmp;
end;
end;
end;
writeln();
write('массив после сортировки: ');
for i: =1 to n do
begin
write(ar[i], ' ');
end;
end.