4. Составьте на языке Pascal программу, определяющую...
...какое из двух расстояний (S1 или S2) больше при условии, что первое из них вводится в метрах, а второе — в саженях.
Для справки:
1 сажень = 2,134 м
...какой из двух мешков тяжелее при условии, что масса первого из них (m1) вводится в килограммах, а второго (m2) — в пудах.
Для справки:
1 пуд = 16,38 кг
те́кстовый реда́ктор — самостоятельная компьютерная программа или компонент программного комплекса (например, редактор исходного кода интегрированной среды разработки или окно ввода в браузере), предназначенная для создания и изменения текстовых данных в общем и текстовых файлов в частности[1].
текстовые редакторы предназначены для работы с текстовыми файлами в интерактивном режиме. они позволяют просматривать содержимое текстовых файлов и производить над ними различные действия — вставку, удаление и копирование текста, контекстный поиск и замену, сортировку строк, просмотр кодов символов и конвертацию кодировок, печать и т. п.
виды текстовых редакторов: блокнот. это самый простой и незамысловатый текстовый редактор в windows.
notepad++
wordpad
libreoffice
microsoft word.
исходный код на языке программирования pascal
const n = 10;
var
a: array[1..n] of integer;
i: byte;
avrg: real;
sum: integer;
begin
randomize;
for i: =1 to n do a[i]: =random(50)+1;
sum : = 0;
for i: =1 to n do sum : = sum + a[i];
avrg : = sum/n;
// весь массив
for i: =1 to n do write(a[i]: 3);
writeln;
writeln('среднее арифм.: ',avrg: 4: 2);
// больше avrg
for i: =1 to n do if a[i]< avrg then write(a[i]: 3);
writeln;
end.
пример(ы) выполнения программы на языке pascal
13 23 45 2 9 28 47 30 18 12
среднее арифм.: 22.70
13 2 9 18 12