ПАМОГИТЕЕЕЕЕ!!!!!!!!!!
ДАЮ 100 БАЛОВВ
Ответы
Ответ:
1)var a,b:integer;
begin
for a:=1 to 9 do
begin
b:=a*6;
writeln(a,'*6=',b);
end;
end.
2)var a,b:integer;
begin
b:=0;
for a:=100 to 999 do
begin
if (a mod 3=0) then b:=b+a;
end;
writeln('Сумма равняется ',b);
end.
3)var a,n:integer;
b:real;
begin
b:=0;
writeln('Введите число n');
readln(n);
for a:=1 to n do
begin
b:=b+(1/a);
end;
writeln('Сумма равняется ',b);
end.
Объяснение:
Ответ:
1. for i in range(1, 11):
print("9 x", i, "=", 9*i)
2. for i in range(10, 0, -1):
print(i**2)
3. sum = 0
for i in range(10, 101):
sum += i
print(sum)
4. product = 1
for i in range(2, 11, 2):
product *= i
print(product)
У всіх програмах використовується цикл for зі змінною-лічильником, яка змінюється в заданому діапазоні за допомогою функції range(). У програмі № 1 використовується множення числа на кожній ітерації циклу. У програмі № 2 використовується піднесення числа до степеня. У програмах № 3 і № 4 використовується акумулююча змінна, щоб зберігати результат.
Объяснение: