Просим пользователя ввести данные (в нашем случае это число и степень), потом запускаем цикл от 1 до степени, создаем отдельную переменную со значением 1 и умножаем её на число которое ввёл пользователь, в итоге выйдет наш ответ. Решение прикрепил скриншотом.
N=int(input())
y=0
for i in range(1,2*n,2):
y+=i
print(y)
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
//Pascal
//1)
var x, y: integer;
begin
write('Введите x y: ');
read(x, y);
if x > y then
writeln(x - y)
else
writeln(y - x);
end.
//2)
var a, b, c: integer;
begin
write('Введите a b c: ');
read(a, b, c);
if (a > (b + c)) then
writeln(a)
else
writeln(b + c);
end.
//3)
var x, k: integer;
begin
write('Введите x k: ');
read(x, k);
if k = 1 then
writeln(sin(x))
else
if k = 2 then
writeln(cos(x))
else
writeln('k должен быть равен 1 или 2.');
end.
//4)
var p, m: integer;
begin
write('Введите p, m: ');
read(p, m);
if p > m * 2 then
writeln(p)
else
writeln(m * 2);
end.
. Помним, что один символ текста занимает 1 байт. Значит, информационный объём данного текста равен: 1байт⋅5=5байтов. Занимаемый объём на флэш - диске: <span>32 Кбайт</span>, т.к. <span>на флэш-диске используется файловая система FAT32 и этот файл будет занимать один кластер, объём которого равен 32 Кбайт.</span>