Что такое информатика? Информатика — это основанная на использовании компьютерной техники дисциплина, изучающая структуру и общие свойства информации, а также закономерности и методы её создания, хранения, поиска, преобразования, передачи и применения в различных сферах человеческой деятельности. Термин "информатика" (франц. informatique) происходит от французских слов information (информация) и automatique (автоматика) и дословно означает "информационная автоматика". Широко распространён также англоязычный вариант этого термина — "Сomputer science", что означает буквально "компьютерная наука".
Uses crt;
const
n=15;
var
a:array[1..n]of real;
i,k:integer;
s:real;
begin
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln;
clrscr;
for i:=1 to n do
begin
write(a[i]:6:2);
if a[i]=s then
inc(k);
end;
writeln;
if k<>0 then
writeln('k: ',k)
else writeln('Нет равных')
end.
Ну вот так, как то. Не уверен только насчет N2 - 3). А так все верно
Ну если я ничего не путаю то решается это так берёшь лист тетради в клетку ставишь точку она будет нулевой (тип система отсчёта) теперь выполняем алгоритм из точки (0,0) мы оказались в точке (1,1) при этом мы путь до этой точке не чертили так как это не написано в программе теперь начинается цикл в котором мы уже будем чертить путь передвижения так как у нас это заданно в программе
и если я ничего не напутал получаем такой рисунок
// PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('A.txt').ToIntegers;
WriteAllText('B.txt',(a[0]*a[1]).ToString)
end.
