Question

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

Answer 1

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

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

2. Без использования стандартных функций:
var n,p,i:integer;
begin
readln(n);
p:=1;
for i:=1 to 5 do p:=p*n;
writeln(n,'^5 = ',p);
end.

Пример:
2
2^5 = 32

3.
var n,i:integer;
begin
readln(n);
i:=1;
while i*i<n do
 begin
 writeln(i,' (',i,'^2 = ',i*i,')');
 i:=i+1;
 end;
end.

Пример:
30
1 (1^2 = 1)
2 (2^2 = 4)
3 (3^2 = 9)
4 (4^2 = 16)
5 (5^2 = 25)

Answer 2

1)
var
  i: byte;
  sum: integer;
begin
  sum := 0;
  i := 11;
  while i < 100 do
  begin
    sum := sum + i;
    i := i + 2;
  end; 
  writeln('Сумма нечетных элементов = ', sum);
  readln;
end.
---------------------------------------------------------
2)
var
  n: real;
begin
  write('Введите n: ');
  readln(n);
  n := exp(ln(n) * 5);
  writeln(n);
  readln;
end.
------------------------------------------------
3)
var
  n: integer;
  i: integer;
begin
  write('Введите n: ');
  readln(n);
  i := 0;
  for i := 1 to n do
    if sqr(i) <= n then
      write(i, ' ')
    else
      break;
  readln;
end.

Answer 3

1. Программа, которая вычисляет сумму всех нечетных двузначных чисел, может выглядеть следующим образом:

program SumOddNumbers;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 10 to 99 do
  begin
    if i mod 2 = 1 then // проверяем, является ли число нечетным
      sum := sum + i; // добавляем число к сумме
  end;
  writeln('Сумма всех нечетных двузначных чисел: ', sum);
end.

2. Программа, которая вычисляет пятую степень натурального числа n, может выглядеть следующим образом:

program PowerOfN;
var
  n, result: integer;
begin
  writeln('Введите натуральное число n:');
  readln(n);
  
  result := n * n * n * n * n; // вычисляем пятую степень числа n
  
  writeln('Пятая степень числа ', n, ' равна: ', result);
end.

3. Программа, которая выводит на экран все натуральные числа, квадрат которых не превышает заданное число n, может выглядеть следующим образом:

program Squares;
var
  n, i: integer;
begin
  writeln('Введите число n:');
  readln(n);
  
  i := 1;
  while i * i <= n do // пока квадрат числа не превышает n
  begin
    writeln(i * i); // выводим квадрат числа
    i := i + 1; // увеличиваем число на 1 для следующей итерации
  end;
end.

Надеюсь, эти программы помогут вам!