25.12.2013, 13:36 | #2 (ссылка) |
Новичок
|
Код:
var a,sum:integer; s:real; begin sum:=1; a:=1; s:=0; while a<>0 do begin а:=0; readln(a); if a>0 then sum:=sum*a; end; s:=sqrt(sum); if s>0 then writeln("Srednee geom=",s) else writeln("Polozhitelnyh chisel nebylo"); end. Както так |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите срочно написать программу,плиз. Pascal | Sakhalin | Программирование | 1 | 13.04.2012 08:12 |
Помогите исправить программу (Pascal) | krab | Программирование | 0 | 15.11.2011 20:46 |
Помогите дописать программу!(Pascal) | counter012 | Программирование | 0 | 10.11.2011 18:51 |
Помогите написать программу на Object Pascal. Очень срочно нужно. | Registr | Программирование | 0 | 31.10.2011 17:22 |
помогите написать программу в pascal | tatu | Программирование | 3 | 19.09.2011 19:15 |