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
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.