Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Сделайте, пожалуйста, задачку про средний возраст!
Сделайте, пожалуйста, задачку про средний возраст!
Известны возраст (в годах в виде 14.5 лет и т.д.) каждого ученика двух классов. Определить средний возраст учеников каждого класса. В каждом классе учатся 20 человек.
1 | Автор: BeaU | 2009-06-05, 14:43   |  Репутация: [ + 0 ]
1 | Автор: BeaU | 2009-06-05, 14:43   |  Репутация: [ + 0 ]
program cikl;
uses crt;
var N,i:integer;
S,x:real;
begin
clrscr;
write('Сколько учеников 1-го класса? '); readln(N);
S:=0; i:=1;
while (i<=N) do
begin
write('Vvedite',i, 'возраст ученика '); readln(x);
S:=(S+x)/2;
i:=i+1;
end;
write('Средний возраст учеников 1-го класса ' ,S:2:1);
writeln('Сколько учеников 2-го класса '); readln(N);
S:=0; i:=1;
while (i<=N) do
begin
write('Vvedite',i, 'возраст ученика '); readln(x);
S:=(S+x)/2;
i:=i+1;
end;
write('Средний возраст учеников 2-го класса ' ,S:2:1);
readln;
end.

Благодарность принимается в виде нажатого зеленого плюсика возле ника!
2 | Автор: viper-klas | 2011-07-05, 18:04   |  Репутация: [ + 3 ]
2 | Автор: viper-klas | 2011-07-05, 18:04   |  Репутация: [ + 3 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Сделайте, пожалуйста, задачку про средний возраст!
Страница 1 из 11
Поиск: