Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program srednball;
var a,b,d : integer;
c : real;
begin
writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');
readln (d);
readln (a);
readln (b);
c: =(a+b+d)/3;
writeln (' srednii ball= ', c: 4: 2);
readln;
end.
2, 3, 6, 18, 108
каждый член последовательности начиная с третьего равен произведению двух предыдущих:
2 * 3 = 6
3 * 6 = 18
6 * 18 = 108
Популярные вопросы