Объяснение:
Для того, чтобы отформатировать любой текстовый файл, нужен текстовый редактор. В настоящее время существует множество программ, предназначенных для редактирования текста. Можно использовать простой текстовый редактор, который устанавливается вместе с операционной системой. Есть большие гиганты, вроде Микрософт ворд или IBM Lotus, с огромным количеством всевозможных функций, которыми большинство пользователей никогда не воспользуются.
Program n_1;
const pi=3.14;
var r, c, s: real;
begin
writeln('Вычесление длины окружности и площади круга');
write('Введение r>>');
readln(r);
c:=2*pi*r;
s:=pi*r*r;
writeln ('с=', c: 6:4);
writeln ('s=', s: 6:4)
end.
<u>Были исправлены ошибки в операторах </u>
<span>var r, c, s, real:
и
</span><span>writeln ('с=', с: 6:4);</span>
Сейчас компьютерные презентации плотно вошли в нашу жизнь. Это отличный способ подачи информации, и следовательно, используются компьютерные презентации, где нужно подавать информацию. В школах, в университетах, во многих других образовательных учреждениях, в среднем, малом и крупном бизнесе, в государственных предприятиях. Как-то так.
Const
m=5;
n=7;
var
a:array[1..m,1..n] of integer;
i,j,amax:integer;
p:real;
begin
Randomize;
Writeln('Исходный массивэ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3)
end;
Writeln
end;
{Задача 1}
amax:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>amax then amax:=a[i,j];
Writeln('Максимальный элемент равен ',amax);
{Задача 2}
p:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j] mod 2=0 then p:=p*a[i,j];
Writeln('Произведение четных элементов равно ',p);
end.
Пример работы
Исходный массивэ
94 20 49 80 70 55 40
62 74 71 51 88 10 76
68 11 11 74 96 50 69
98 34 25 93 52 53 61
68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33
Полезность це колы ты всим нужен и ты вмиеш це робыти .