Задать вопрос Регистрация
Помочь другим

  • Программу оформить в паскале)

    Даны натуральное число n и целые числа . Выяснить, верно ли, что количество тех чисел , которые меньше 20, равно пяти.

Ответы 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years