Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
по формуле n= найдем, сколько было круглых фигурок - = 4; всего фигурок было 15+4=19. ответ: 19
Популярные вопросы