дано натуральное число N. Написать программу, выводящую последовательность чисел 1,2,3....,N (решить с помощью while)
по возможности решите еще и
Дано n натуральных чисел. Написать программу, вычисляющую их среднее арифметическое (число n вводится перед всеми остальными числами )
Дано натуральное число n. Написать программу, выводящую степени двойки от первой до n-й 2,4,8,6 ...
TaTaPmember:
Остальные тоже через циклы?
Ответы
Ответ дал:
2
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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад