Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.02.2016 02:06
- Информатика
- remove_red_eye 7879
- thumb_up 6
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Положительных- ',
ReadSeqReal(ReadInteger('n=')).Where(t->t>0).Count)
end.
Пример
n= 6
2.3 -1.15 0 4.9 6 -10
Положительных- 3
begin
while true do begin
var a:=ReadInteger;
if a=0 then break;
Writeln(a)
end
end.
Пример
12
12
18
18
41
41
4
4
0
begin
var a:=ReadReal('a=');
var a2:=a*a;
Writeln('a^7=',a*a2*Sqr(a2))
end.
Пример
a= 3.26
a^7=3913.1203087558
- 22.02.2016 17:10
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.