program massiv;
var b, i, g:integer;
a:real;
n: array [1..1000] of integer;
begin
write('Введите количество элементов в массиве: ');
readln(b);
writeln('Введите элементы массива: ');
for i:=1 to b do
read(n[i]);
write('Вывод элементов массива: ');
for i:=1 to b do
begin
if n[i] mod 2 = 0 then write
else
write(n[i],':',i,' ');
end;
end.
program yourname;
uses crt;
var com:string; i:integer;
begin
writeln('Задайте значените программы.');
writeln('Для того чтобы программа посчитала от 1 до 5 пропишите команду "go1".');
writeln('Для того чтобы программа посчитала от 5 до 1 пропишите команду "go2".');
writeln('Для того чтобы сказать программе - пропишите команду "go3".');
readln(com);
If (com = 'go1') then begin
writeln(Программа считает от 1 до 5');
for i:=1 to 5 do writeln(i) end
else if (com = 'go2') then begin
writeln('Программа считает от 5 до 1');
for i:=5 downto 1 do writeln(i) end
else if (com = 'go3') then begin
writeln('Программа: Всегда рада вам
else begin writeln('Данной команды не существует либо вы ввели команду вместе с ковычками.');
Перезапустите программу.') end
end.
Информáтика (фр. Informatique; англ. Computer science) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений[1].
Информатика включает дисциплины, относящиеся к обработке информации в вычислительных машинах и вычислительных сетях: как абстрактные, вроде анализа алгоритмов, так и конкретные, например разработка языков программирования и протоколов передачи данных.
Темами исследований в информатике являются вопросы: что можно, а что нельзя реализовать в программах и базах данных (теория вычислимости и искусственный интеллект), каким образом можно решать специфические вычислительные и информационные задачи с максимальной эффективностью (теория сложности вычислений), в каком виде следует хранить и восстанавливать информацию специфического вида (структуры и базы данных), как программы и люди должны взаимодействовать друг с другом (пользовательский интерфейс и языки программирования и представление знаний) и т. п.
var a:array of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
read (n);
a:=new integer[n];
for i:=0 to n-1 do
begin
a[i]:=random(100);
if a[i] mod 2 = 0 then a[i]:=a[i]+1
end;
for i:=0 to n-1 do write (i,':',a[i],' ')
end.