Давайте по строчкам пойдем.
Program 1; - имя программы не может начинаться/являться числом
var - всё норм
n,m,p : real; не понимаю, зачем эти переменные объявлять как real, когда можно сделать их int'ами + не хватает переменной i
begin - всё норм
Так как у нас произведение, нам нужно переменной p присвоить единицу.
read(n,m) - не хватает точки с запятой, и я бы писал сначала число, а потом степень в которую надо возвести, а не наоборот.
for i := 0 to n do, если уж мы идём с нуля, тогда цикл должен кончится в n-1 (можно начать с 1, закончить n)
p := m * p; - всё норм
write(p) - не хватает точки с запятой
end - не хватает точки
Рабочий код:
Program pow1;
var
n, m , p,i : integer;
begin
p:= 1;
read(m,n);
for i :=0 to n-1 do
p:=m*p;
write(p);
end.
Задание 15.
Переведём размер файла в биты:
1 Кбайт = 1024 байт
1 байт = 8 бит
80 Кбайт = 80 * 1024 * 8 = 655360 бит
Найдём время передачи:
655360 / 512 = 1280 секунд.
ответ: 1280 секунд.
Задание 16.
Заметим, что скорость передачи второго файла в 2 раза меньше, чем скорость первого. Так как время одинаковое, то со скоростью передачи, меньшей в 2 раза и передастся файл размером в 2 раза меньше:
200 / 2 = 100 Кбайт
ответ: 100 Кбайт.
Задание 17.
Заметим, что скорость передачи второго соединения в 16 раз меньше, чем скорость первого (2048 / 128 = 16). Так как время одинаковое, то со скоростью передачи, меньшей в 16 раз и передастся файл в 16 раз меньше:
320 / 16 = 20 Кбайт
ответ: 20 Кбайт.
#include <iostream>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
cout << max(a, b);
}