40 БАЛЛОВ, СРОООООЧНООО. ПОМОГИТЕ ПОЖАЛУЙСТА1.Выведите на экран кубы n первых натуральных

40 БАЛЛОВ, СРОООООЧНООО. ПОМОГИТЕ ПОЖАЛУЙСТА
1.Выведите на экран кубы n первых естественных чисел;
2.Составьте программку, которая вычисляет сумму всех четных, двузначных чисел;
3.Дано естественное число n. Вычислите 3n;
4Дано естественное число n. Получить наименьшее число вида 2r, превосходящее n.

Задать свой вопрос
1 ответ
1.
var n,i:integer;
begin
readln(n);
for i:=1 to n do writeln(i,' ',i*i*i);
end.

Пример:
4
1 1
2 8
3 27
4 64

2.
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
 if i mod 2=0 then s:=s+i;
writeln('s = ',s);
end.

Результат:
s = 2430

3.
var n:integer;
begin
readln(n);
writeln('3 * ',n,' = ',3*n);
end.

Пример:
5
3 * 5 = 15

4.
var n:integer;
begin
readln(n);
writeln(n+1+(n+1) mod 2);
end.

Пример:
8
10
Лариса Фругина
можешь посодействовать пожалуйста со вторым вопросом?))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт