1. даны числа от 5 до 16. необходимо вывести на экран (в столбик) удвоенное значение каждого числа. пример вывода ответа: 5*2 = 10 6*2 = 12 и т.д. 2) напишите программу перевода расстояния из метром в сантиметры для значений длин от 1 до 15 метров. (информатика. 8 класс. паскаль)

Код: 1) program project1; var          i: integer; begin    for i: =5 to 16 do      begin           write(i, ' *  2 =    ', i*2);       writeln;       end;   readln; end. 2)выводит столбики: program project1; var i: integer; beginfor i: =1 to 15 dobeginwrite(i, 'm =  ', i*100, 'cm'); writeln; end; readln; end.переводит значение введённого количества метров в сантиметры: program project1; var    i: =real; beginreadln(i); writeln(i, 'm =  ', i*100, 'cm'); end.

С компьютеров можно писать книги, письма и отчеты, хранить обширную информацию (наподобие списков, адресов и баз данных), делать сложные расчеты, конструировать технику, рисовать, редактировать фотографии и еще много чего другого… В настоящее время практические все организации в мире используют компьютер. Ведь без компьютера сейчас даже ракета в воздух не взлетит. Все, что нас окружает, автоматизировано до такой степени, что люди, живущие всего 30 лет назад, восприняли бы это как фантастику.
Почти любую работу, проделанную на компьютере, можно увидеть на экране монитора. А при желании, результаты работы можно распечатать на бумаге с принтера. Но можно и наоборот, любой документ или рисунок ввести в компьютер с сканера (лист бумаги сканируется на специальном экране сканера, после чего этот документ появляется в компьютере). Кроме этого, любую информацию с компьютера можно вывести не только в печатном, но и в электронном виде. Для этого используются компьютерные диски и флешки. С них можно переносить информацию с одного компьютера на другой или просматривать данные на экране телевизора (например, фильмы, фотографии, музыка и т.д.).
Попыталась компактно всё вместить

Объяснение:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Program lab5;

Var

A: array [1..10,1..15] of real;

i, j, m, n: integer; s, p, min, max: real;

Begin

writeln('Введи m,n'); read(m,n);

writeln('Введи массив A');

for i:=1 to m do

 for j:=1 to n do

  read(A[i,j]);

s:=0; p:=1; min:=A[1,1]; max:=A[1,1];

for i:=1 to m do for j:=1 to n do

  begin

   s:=s+A[i,j]; p:=p*A[i,j];

   if A[i,j]<min then min:=A[i,j];

   if A[i,j]>max then max:=A[i,j];

  end;

writeln('s=',s:10:3,'  p=',p:10:3,

 '  min=',min:10:3,'  max=',max:10:3);

End.