Объяснение:
Для того, чтобы отформатировать любой текстовый файл, нужен текстовый редактор. В настоящее время существует множество программ, предназначенных для редактирования текста. Можно использовать простой текстовый редактор, который устанавливается вместе с операционной системой. Есть большие гиганты, вроде Микрософт ворд или IBM Lotus, с огромным количеством всевозможных функций, которыми большинство пользователей никогда не воспользуются.
Var n,i,ks,kp,h:integer;
begin;
kp:=1;
readln(n);
for i:=1 to n do
begin;
readln(h);
kp:=kp*h;
ks:=ks+h;
end;
writeln('Сумма:',ks);
write('Произведение:',kp);
end.
Program _1;
var
dollar,euro,rub:real;
begin
writeln('Введите сумму в рублях');
readln(rub);
dollar:=rub/57;
euro:=rub/68;
writeln('Курс рубля в долларах: ',dollar);
writeln('Курс рубля в евро: ',euro);
end.
Program help;
Uses Crt;
Const n = 10; (* Размер массива *)
Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;
Begin
Randomize;
ClrScr;
Writeln('Массив: ');
For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;
Writeln('Массив после изменения: ');
For i := 1 to n do
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
End.
Ответ количество форматов 4