Дано натуральноe n, посчитать сумму n и вывести результат на экран. s=1+1/2+1/3+1/4+1/5+1/6+...n. Написать программу а Pascal с помощью цикла с преду
5-9 класс
|
словием.
program kokoko;
uses crt;
var i,n:integer;
k:real;
begin
i:=0;
k:=0;
writeln('Введите число n');
read(n);
while i<=n do
begin
i:=i+1; // как счетчик и кол-во раз прибавления
k:=k+(1/i);
end;
writeln('Ответ ',k:2:2); // циферки после к значат что будет 2 знака после за
end.
Другие вопросы из категории
строк, в каждой строке 48 символов. Все символы представлены в кодировке КОИ-8, в которой каждый символ кодируется 8 битами. Определите, сколько строк помещается на каждой странице.
количество используемых цветов 16?
Является ли условным оператором последовательность символов?
a)if x б)if x>=y then x:=0; y:=0 else write (z)
в)if x Заранее Спасибо.
Читайте также
d:=d – z; k=k+1;
конец цикла;
Вывести результат на экран.
Составить блок-схему в виде циклического алгоритма. Определить количество циклов k. Написать программу на языке Паскаль с использованием оператора цикла с предусловием.вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.
Определение факториала:
0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.
Другими словами n!- это произведение n натуральных чисел.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.