Question

Помогите пожалуйста с задачами по информатике в паскале!!1. Ввести целое число a и вывести сумму квадратов всех чисел от 1 до a с шагом 0.1. Пример: Введите последнее число: 3 Сумма 91.7 2. Ввести натуральное число A и вывести числа от A до 1 (через одно) в порядке убывания. Пример: Введите натуральное число: 8 Ответ: 8 6 4 2

Answer 1

1.
var a,i:integer; s:real;
begin
writeln('Введите последнее число:');
readln(a);
s:=0;
for i:=0 to round((a-1)/0.1) do
 s:=s+(1+i*0.1)*(1+i*0.1);
writeln('Сумма = ',s:4:1);
end.

Пример:
Введите последнее число:
3
Сумма = 91.7

2.
var a,i:integer;
begin
writeln('Введите натуральное число:');
readln(a);
write('Ответ: ');
while a>=1 do
 begin
 write(a,' ');
 a:=a-2;
 end;
writeln;
end.

Пример:
Введите натуральное число:
8
Ответ: 8 6 4 2

Answer 2

Задача 1: Вывести сумму квадратов всех чисел от 1 до a с шагом 0.1

Для решения этой задачи вам потребуется использовать цикл и переменную-аккумулятор, чтобы накапливать сумму квадратов чисел.

Вот решение на языке Pascal:

program SumOfSquares;

var
  a, i: integer;
  sum: real;

begin
  sum := 0; // инициализируем переменную-аккумулятор

write('Введите последнее число: ');
  readln(a);

for i := 1 to a * 10 do
  begin
    sum := sum + sqr(i / 10); // добавляем квадрат текущего числа к сумме
  end;

writeln('Сумма квадратов всех чисел от 1 до ', a, ' с шагом 0.1: ', sum:0:2);
end.

В данном примере мы считываем целое число `a`, а затем выполняем цикл от 1 до `a * 10` с шагом 1, чтобы учесть шаг 0.1. Внутри цикла мы добавляем квадрат текущего числа (`i / 10`) к переменной-аккумулятору `sum`.

Результат:

Введите последнее число: 3 Сумма квадратов всех чисел от 1 до 3 с шагом 0.1: 91.70

Задача 2: Вывести числа от A до 1 (через одно) в порядке убывания

Для решения этой задачи также потребуется использовать цикл, но на этот раз с шагом -2, чтобы учитывать "через одно" и порядок убывания.

Вот решение на языке Pascal:

program NumbersDescending;

var
  A, i: integer;

begin
  write('Введите натуральное число: ');
  readln(A);

for i := A downto 1 step 2 do
  begin
    write(i, ' ');
  end;
end.

В данном примере мы считываем натуральное число `A`, а затем выполняем цикл от `A` до 1 с шагом -2. Внутри цикла мы выводим текущее число `i`.

Результат:

Введите натуральное число: 8 8 6 4 2

Надеюсь, это поможет вам с задачами по информатике в Pascal! Если у вас возникнут еще вопросы, не стесняйтесь задавать.