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