Программу оформить в паскале) Даны натуральное число n и целые ...

Question

Программу оформить в паскале) Даны натуральное число n и целые ...

Moderator

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

Есть ответ

17.12.2022

122

Ответ

Answer 1 · 17.12.2022

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 x5 then //проверка (больше 5?) Writeln('Да') else Writeln('Нет');End.

Программу оформить в паскале) Даны натуральное число n и целые ...

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

Ответ

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 x5 then //проверка (больше 5?) Writeln('Да') else Writeln('Нет');End.

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

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 x5 then //проверка (больше 5?) Writeln('Да') else Writeln('Нет');End.