Question

Дано натуральное число N. Написать программу, выводящую последовательность чисел 1,2,3....,N (решить с помощью while)по возможности решите еще и Дано n натуральных чисел. Написать программу, вычисляющую их среднее арифметическое (число n вводится перед всеми остальными числами ) Дано натуральное число n. Написать программу, выводящую степени двойки от первой до n-й 2,4,8,6 ...

Answer 1

Var n,i:integer;
begin
write('N= ');
read(n);
i:=1;
while i<=n do
begin
writeln(i);
i:=i+1;
end;
end.

var n,i,sum:integer;
cp:real;
begin
write('N= ');
read(n);
i:=0;
while i<n do
begin
i:=i+1;
sum:=sum+i;
end;
cp:=sum/i;
writeln('Среднее значение натуральных чисел до N равно ',cp);
end.

var n,i,b,m:integer;
begin
write('N= ');
read(n);
b:=2;
i:=0;
write(b);
writeln;
while i<n-1 do
begin
i:=i+1;
b:=b*2;
writeln(b);
end;
end.

Answer 2

Program to Print Sequence of Numbers from 1 to N Using a While Loop

Here's a program that uses a while loop to print the sequence of numbers from 1 to N:

N = int(input("Enter a natural number: "))
i = 1

while i <= N:
    print(i)
    i += 1

This program prompts the user to enter a natural number `N`. It then initializes a variable `i` to 1 and enters a while loop. Inside the loop, it prints the value of `i` and increments `i` by 1. The loop continues until `i` becomes greater than `N`.

Example Output: ``` Enter a natural number: 5 1 2 3 4 5 ```