Получив на вход натуральное число x, этот алгоритм печатает два числа: a и b. Сколько существует таких чисел x, при вводе которых алгоритм печатает сначала 5, а потом 7? var x, a, b: longint;
begin
readln(x);
a := 0;
while x > 0 do begin
a := a+1;
b := x mod 9;
x := x div 9;
end;
writeln(a); write(b);
end.

a = int(input('Введите количество друзей:')) #вводим количетсво друзей

name = [] # создаем пустой список

age = 0  

for i in range(a):  # проходим по колисчетсву друзей

   q = input('Введите имя и возраст друга через пробел:').split()  # вводим имя и возраст и розбиваем их отдельно

   name.append(q[0])  # добавляем имя в список

   age = age + int(q[1])  # сумируем весь возраст

age = age / a  # находим средний возраст

if age<10:   # если меньше 10 то выводим возраст

   print(age)

elif age>10:   # если больше 10

   print(age)   #выводим возраст

   for b in name:  # обходим список с именами

       print(b)   # выводим имя

Объяснение:

Обычно предполагается, что нам известны какие-либо начальные данные. Тогда для простоты, буду считать что нам известно основание и высота к этому основанию. В таком случае

S = основание * высоту / 2

Что нужно сделать?

1) Запросить у пользователя ввод длины основания

2) Запросить у пользователя ввод длины высоты

3) Вычислить площадь

4) Вывести площадь на экран

Определимся с данными. У нас будет переменная S, основания и высоты. Все будут real, ведь пользователь может ввести и не целое число.

program ploshad;

var S, osnovanie, visota:real;

begin

   writeln('Вычисление площадь треугольника по основанию и высоте');

   writeln('Введите длину основания ');

   read(osnovanie);

   writeln('Введите длину высоты ');

   read(visota);

   S:=osnovanie*visota/2;

   writeln('Площадь треугольника = ',S);

end.