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

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

Информация (от лат. informatio — «разъяснение, изложение, осведомлённость») — сведения о чём-либо, независимо от формы их представления.
Информатика (от информация и автоматика) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений.
Компьютер (англ. computer, МФА: — «вычислитель») — устройство или система выполнять заданную, чётко определённую последовательность операций.
Текстовый редактор — самостоятельная компьютерная программа или компонент программного комплекса (например, редактор исходного кода интергрированной среды разработки или окно ввода в браузере), предназначенная для создания и изменения текстовых данных вообще и текстовых файлов в частности.
Графический редактор — программа (или пакет программ), позволяющая создавать и редактировать двумерные изображения с компьютера.

Program task;
var p:array[1..10] of integer;
      i, n2, n3, n4, n5:integer;
begin
       n2:=0; n3:=0; n4:=0; n5:=0; {n2 - n5 - колич. 2-ек, 3-ек и т.д.}
        writeln('Введите 10 элементов массива, отметки от 1 до 5');
        for i:=1 to 10 do {ввод исходных данных}
        begin
                 write('p[',i,'] = ');
                 readln(p[i])
         end;
         for i:=1 to 10 do  {решение, перебор таблицы и суммирование}
         begin
                 if p[i] = 2 then n2:=n2+1;
                 if p[i] = 3 then n3:=n3+1;
                 if p[i] = 4 then n4:=n4+1;
                 if p[i] = 5 then n5:=n5+1
          end;
          writeln('n2 = ',n2);  {вывод результатов}
          writeln('n3 = ',n3);
          writeln('n4 = ',n4);
          writeln('n5 = ',n5);
          writeln('всего оценок',n2+n3+n4+n5)
end.