S= 2/7 + 2/14 + 2/21 +........+2/56 помогите пожалуйста решить эту задачу. с помощью оператора while

Знания

Информатика

1 ответ:

Evgen19751 [14]3 года назад

0 0

Program prog;
var s,i:real;

begin

while(i<56) do
begin
i:=i+7;
s:=s+2/i;
end;
writeln('S = ',s:0:3);
end.

Читайте также

Вывести на экран четные элементы массива;рассчитать и вывести их произведение.СРОЧНО!!!ДАЮ 40 БАЛЛОВ!!!!!

Jorik999

Const nmax=50;
var a:array[1..nmax]of integer;
i,n,sum:integer;
begin
readln(n);//количество элементов массива
sum:=1;
for i:=1 to n do
begin
writeln('Введите ',i,' элемент массива');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2= 0 then
begin
sum:=a[i]*sum;
write(a[i],' ');
end;
writeln('sum:',sum);
end.

0 0

1 год назад

Как по английски будет информатика?

noj4

computer science - информатика

..........................................................................

0 0

4 года назад

Значение арифметического выражения: 49^12 – 7^10 + 7^8 – 49 записали в системе счисления с основанием 7. Сколько цифр «6» содерж

Артём20120858

Результат вычисления выражения = 191581231380289703904
В 7-ричной системе = 666666666666660066666600
Кол-во цифр 6 = 20

49^12 – 7^10 + 7^8 – 49 = 7^24 – 7^10 + 7^8 – 7^2
7^24 – 7^10 (7) = 10e24-10e10 = 666666666666660000000000 => 24-10 = 14 "6"
7^8 – 7^2 (7) = 10e8-10e2 = 66666600 => 8-2=6 "6"
Ответ 14+6 = 20

0 0

4 года назад

Дано x - целое, шестиразрядное число. Посчитать количество цифр в этом числе больше 5. Делать в паскале

сер гей

Program ff;

var
x, counter:integer;
begin
write('Введите число: ');
readln(x);
while x > 0 do
begin
if (x mod 10) > 5 then counter:=counter+1;
x := x div 10;
end;
writeln('Цифр больше 5: 'counter);
readln();
end.

0 0

4 года назад

Переведите число 202 из восьмеричной системы счисления в десятичную

Дмитрий Гринч [32]

202(8)=2*64+0+2=130(10)

0 0

3 года назад