Консультация № 159210
30.01.2009, 17:10
0.00 руб.
0 1 0
Здравствуйте!Мне по информатике задали 10 задач и 3 из них я не могу решить!
Вообще не получается!Помогите пожалуйста!
1)Напечатать таблицу стоимости 2000 грамм конфет (стоимость 1 кг конфет вводятся с клавиатуры).
2)Вычислить сумму 2/3+3/4+4/5+...+10/11
3)Найти сумму 1*1+2*2+3*3+...+10*10.Операцию возведения в степень не использовать, а учесть особенности получения квадрата натурального числа.
Эти задачи в Паскале решить надо!Заранее огромное спасибо!

Обсуждение

давно
Профессор
401888
1232
31.01.2009, 07:23
общий
Условие первой задачи не понял. Не могли бы Вы привести пример такой таблицы?
2.
Код:
uses crt;
var i:byte;
sm:real;
begin
clrscr;
sm:=0;
for i:=2 to 10 do
sm:=sm+i/(i+1);
write('Summa=',sm:0:5);
readln
end.


3.
Код:
uses crt;
var i,sm:integer;
begin
clrscr;
sm:=0;
for i:=1 to 10 do
sm:=sm+i*i;
write('Summa=',sm);
readln
end.
Форма ответа