Ввести с клавиатуры натуральное число N. И с помощью цикла вычислить: 2^N , N!
10-11 класс
|
Program P;
Var
I, N : Integer;
S : Integer;
Begin
S := 1;
Write('Enter N ');
ReadLn(N);
for I:=1 to N do
S := S * 2;
WriteLn(S);
ReadLn;
End.
Program pr;
uses crt;
Var n, i:integer;
s:real;
Begin
s:=1;
Writeln('Введите n');
readln(n);
For i:=1 to n do
Begin
s:=s*2;
Writeln(s);
end;
readln;
end.
Другие вопросы из категории
-1.
2. Вычислить все квадраты двухзначных чисел, не превышающих 100
треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.
Читайте также
числа из диапазона [1..N].
. Изменить его левую цифру на "9"
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
числа 220 и 284). Напечатать все пары "дружественных" чисел, не превосходящих заданного натурального числа. (Определить функцию, вычисляющую сумму делителей числа.)сделать в C# (си шарп)Помогите пожалуйста)