Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Это цикл for:

5-9 класс

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

VICELER 20 сент. 2013 г., 20:41:41 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Irinavitnova
20 сент. 2013 г., 22:47:04 (10 лет назад)

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. 

Ответить

Другие вопросы из категории

Читайте также

привет,помогите пожалуйста решить еще задачки))))

1)дано натуральное число N>1.найти количество его делителей
2)дано натуральное число N>1.равно ли оно сумме своих делителей(включая единицу,но не себя)
3)даны числа a и n.вычислить:1/a 1/a*a 1/a*a*a ... 1/a*n
это все цикл for,зарание спасибо!

Для чего используются команды цикла? Как записывается команда цикла FOR? Как в цикле записать команду присваивания, чтобы она вычисляла сумму чисел?

Количество? Какое начальное значение должно быть у переменной, в которой накапливаем произведение чисел? Как записывается команда цикла, в которой счетчик цикла уменьшается? Можно ли изменять значение верхней границы цикла в теле цикла? Можно ли в теле цикла использовать команду сравнения

підрахувати суму всіх натуральних чисел, які діляться на 3 і не перевищють деякого числа N. паскаль, цикл for. думаю, будет примерно

так:

program zad;

var i,r,n:integer;

begin

writeln ('введіть число n');

readln(n);

for i:=i<n and (i mod 3=0) do

begin writeln (r:=...);

end;

readln;

end.

не знаю как найти сумму



Вы находитесь на странице вопроса "Это цикл for:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.