Это цикл for: 1)даны натуральные числа x и y.вычислить x*y,пользуясь только оперцией сложения. 2)даны натуральные числа x и y.вычислить x^y 3)дано натуральное число n. найти сумму s=1+1/2+1/3++1/n. 4)дано натуральное число n и число х.найти сумму s=(x+1)^2+(x+2)^2++(x+n)^2
Lika39211
3
13.03.2019 02:40
1
Другие вопросы по теме Информатика
Alina7687
22.09.2019 13:01
AelitaFox
22.09.2019 13:01
Jeka990
22.09.2019 13:01
kuchatrupov47
31.05.2019 02:40
jamikzara
13.04.2020 18:20
sivtsevavera2005
13.04.2020 18:20
sasacot
14.04.2020 15:05
79272197114
14.04.2020 15:05
Популярные вопросы
- .(Источник электрической энергии с внутреним сопротивлением 0,50 ом замкнут никеллиновым...
1 - Вминерале мирабилит, которій добівают в затоке кара-богаз-гол содержится 44% натрий...
3 - Температура воздуха 20 градусов, точка росы 12градусов. найти абсолютною и относительную...
3 - .(Через точку d, лежащую между плоскостями альфа и бета, проведены прямые m и...
1 - .(Мальчик км за 4ч. с какой скоростью он шёл?)....
2 - Впараллелограмме острый угол равен 30. биссектриса этого угла делит сторону параллелогрмма...
3 - Найдите высоту конуса, если площадь его осевого сечения равна 6 дм в квадрате,...
1 - Какой наибольший груз может выдержать стальная проволока диаметром d=1 мм, не...
3 - Определите индукцию однородного магнитного поля, если на проводник длиной 20 см...
1 - .(Кулю, радіус якої 10 см, перетнуто площиною. площа утвореного перерізу 64п см(2)....
3
1- program odin;
var x, y, i,p:integer;
begin
read(x,y);
p:=0;
for i:=1 to y do
p:=p+x;
writeln(p);
end.
2-program dva;
var x,y,r:real;
begin
read(x,y);
r:=x/y;
writeln(r);
end.
3-program tri;
var n,i,b:integer; s:real;
begin
read(n);
b:=1;
for i:=1 to n do
s:=s+(b/i);
writeln(s);
end.