Вопрос по информатике:
Программу оформить в паскале)
Даны натуральное число n и целые числа . Выяснить, верно ли, что количество тех чисел , которые меньше 20, равно пяти.- 14.10.2017 23:58
- Информатика
- remove_red_eye 13008
- thumb_up 81
Ответы и объяснения 1
Program p1;
Var: menee_dvadcati,n,i,x:integer;
Begin
x:=0; //обнуляем x
Readln(n);//считываем n
For i:=1 to n do
Begin
Readln(x);//ввод числа
If x<20 then//проверка (больше 20?)
menee_dvadcati:=menee_dvadcati+1;//считаем количество
end;
If menee_dvadcati>5 then //проверка (больше 5?)
Writeln('Да') else
Writeln('Нет');
End.
- 16.10.2017 04:32
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.