Var a, b, c, r : integer; begin c:=0; r:=9; write('Введите число: '); readln(a); while a div 10 <> 0 do begin b:=a mod 10; a:=a div 10; if b>c then c:=b; if b<r then r:=b; end; b:=a mod 10; a:=a div 10; if b>c then c:=b; if b<r then r:=b; writeln('Разность: ', c-r); end. ДА ХОТЬ ДЛЯ 10 ЗНАЧНОГО
В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.
var n,s,t,i:integer; begin Write('Укажите количество данных: '); Read(n); Writeln('Теперь вводите данные'); s:=0; for i:=1 to n do begin Read(t); s:=s+t end; Writeln('Средняя температура за месяц составила ',s/n:0:1) end.
Пример решения
Укажите количество данных: 11 Теперь вводите данные 27 29 26 31 24 23 27 30 31 28 25 Средняя температура за месяц составила 27.4
Txt – первый формат для текстовых файлов, в котором не используется форматирование (размер шрифта, полужирный, отступ абзаца и пр,). Содержит только текст. .doc – формат, который использовался долгое время в текстовом редакторе Word компании Microsoft. Наиболее распространенный для текстовых редакторов. .docx – формат для текстового редактора Word компании Microsoft, который появился в пакете Microsoft office 07 (2007 год) и имеется в Office 10. Не все редакторы поддерживают данный формат, так как эта лицензионная разработка компании Microsoft. .odt – формат для текстового редактора Write пакета свободный офис (OpenOffice). .rtf – формат для текстового редактора, имеющий возможность использоваться в разных операционных системах, то есть, можно переносить с компьютера, имеющего одну операционную систему на другой компьютер с другой операционной системой. .pdf – формат для текстового файла, разработанных компанией Adobe. Имеется меньшие размеры и лучше передает рисунки по сравнению с другими форматами. Когда он был разработан, то редактор для создания подобных файлов нужно было купить у компании Adobe. В то же время для любого пользователя можно было скачать просмотровщик данного файла. Многие компании делали текстовую информацию именно в этом формате, поэтому он стал популярен. .chm – формат файла, который используется для хранения нескольких файлов формата html. Создан для замены формата справочной системы. Может иметь ссылки, по которым возможен переход на другую страницу.
begin
c:=0;
r:=9;
write('Введите число: ');
readln(a);
while a div 10 <> 0 do
begin
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
end;
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
writeln('Разность: ', c-r);
end.
ДА ХОТЬ ДЛЯ 10 ЗНАЧНОГО