//Pascal
var
A: array [1 .. 5] of integer;
k, buf, i, j: integer;
ArithMean: real;
begin
for i := 1 to 5 do
begin
write('A[', i, '] = '); readln(A[i]);
ArithMean := ArithMean + A[i];
end;
for i := 1 to 5 - 1 do
begin
k := i;
for j := i + 1 to 5 do
if A[j] < A[k] then k := j;
buf := A[i];
A[i] := A[k];
A[k] := buf;
end;
for i := 1 to 5 do write(A[i]:4);
writeln;
writeln('Среднее арифметическое = ', (ArithMean / 5):0:2);
end.
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
Сборник слов в алфавитном порядке, с пояснениями, толкованиями или с переводом на другой язык<span>.<span>Совокупность всех слов какого-нибудь . языка, а также слов, употреблённых в каком-н. одном произведении или в произведениях какого-нибудь. писателя.-Значение словаря </span></span>Смотря какой словарь Ну например,если словарь английского языка для перевода слов с одного языка на другой Энциклопедия-<span> приведённое в систему обозрение всех отраслей человеческого знания или круга дисциплин, в совокупности составляющих отдельную отрасль знания.Энциклопедии делятся на универсальные , отраслевые ,<span> региональные, проблемные, персональные.</span>. </span>
Это текстовой файл. Программа Writer из Open/Libre office.