Var
a, b, c: integer;
begin
read(a, b, c);
writeln('P = ',a * b * c);
writeln('S = ',a + b + c);
writeln('A = ',(a + b + c) / 3);
end.
9)
V=22000*240*5*2=52800000бит=6,2мб
Ответ/ 6,2 мб
Заметим, что число путей, которые ведут из данной клетки в конечную, равно сумме числа путей, ведущих из клетки снизу, и числа путей, ведущих из клетки справа (например, если из нижней клетки ведут 63 пути, а из правой - 35 путей, то всего из данной клетки ведут 63 + 35 = 98 путей). Заполняем табличку, и получаем, что из верхнего левого угла в нижний правый ведут 98 путей.
В первом ответ 0011
во втором 1100
в третьем 11111110
Var f1:text;
st:string;
begin
write ('введите имя файла ');
readln(f1);
reset (f1); { открыть файл для чтения }
while not eof (f1) do { пока не конец файла f1}
begin
readln (f1, st); {читаем строку из файла f1 }
writeln(st); { выводим на экран }
end;
close (f1); { закрыть файл для чтения}
end .