Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 20.10.2011, 18:49   #1
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию Даны два целых числа

Решите пожалуйста задачку, оченб нужно...


1.даны числа K и N (N>2). Вывести N-1 раз число K.
2. Дано два целых числа A и B (A<B). Вывести в порядке убывания все целые числа, расположенные между А и В (включая сами числа А и В), а также кол-во N этих чиселю
3. Даны 2 целых числа А и В (А<B)ю Найти сумму кубов всех целых чисел от А до В включительно.
4. Дано целое число N(>0). Найти сумму N(в квадрате)+(N+1)в квадрате+(N+2)вквадрате+......+(2*N )в квадрате(целое число)

5. Данное число N(>0). Используя одни числа, найти сумму 1+1/(1!)+1/(2!)+1/(3!)+.........+1/(N!)
Анастасия12 вне форума
Старый 20.10.2011, 18:50   #2
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

задача через паскаль
Анастасия12 вне форума
Старый 20.10.2011, 18:57   #3
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

Помогити а?)
Анастасия12 вне форума
Старый 20.10.2011, 19:18   #4
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
По умолчанию

Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
Решите пожалуйста задачку, оченб нужно...
1.даны числа K и N (N>2). Вывести N-1 раз число K.

Код:
 program pr1;
 var i,k,n:integer;
 begin
 i:=1;
 writeln ('Vvedite k,n:');
 readln (k,n);
 for i:=1 to n-1 do
 writeln (' ',k);
 end.

Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
2. Дано два целых числа A и B (A<B). Вывести в порядке убывания все целые числа, расположенные между А и В (включая сами числа А и В), а также кол-во N этих чиселю
)
Код:
program pr2;
uses crt;
var
a,b,c : integer;
begin
clrscr;
writeln('Vvedite a,b :');
readln(a,b);
if a>b then begin
writeln('A<B!');
exit;
end;
for c:=b downto a do
write(c,' ');
writeln;
writeln('Kol-vo: ',b);
end.

Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
3. Даны 2 целых числа А и В (А<B)ю Найти сумму кубов всех целых чисел от А до В включительно.
Код:
program pr3;
uses crt;
var a,b,i:integer;
s:longint;
begin
ClrScr;
Writeln('Vvedite A,B :');
readln(a,b);
s:=0;
for  i:=a to b do s:=s+(i*i*i);
writeln('Sum = ',s);
readln;
end.

Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
4. Дано целое число N(>0). Найти сумму N(в квадрате)+(N+1)в квадрате+(N+2)вквадрате+......+(2*N )в квадрате(целое число)
Код:
uses crt;
var
a,b,c,s,n,i : integer;
begin
clrscr;
write('N= ');
readln(n);
s:=0;
for i:=1 to n do
begin
a:=2*n;
s:=s+a;
end;
writeln('SUM = ',s);
readln;
end.

Последний раз редактировалось iCaesy; 20.10.2011 в 19:53.
iCaesy вне форума
Старый 20.10.2011, 19:36   #5
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

iCaesy: а можешь ещё 3 помочь решить, пожалуйста
Анастасия12 вне форума
Старый 20.10.2011, 19:46   #6
grom333
Форумчанин
 
Аватар для grom333
 
Регистрация: 21.10.2008
Сообщений: 337
По умолчанию

3. Условие на а<b сделаешь сам
Код:
var
a,b,c,i:integer;
begin
writeln('vvedite a,b');
readln(a) ;
readln(b);
for i:=a to b do
begin
c:=i*i*i;
writeln(c);
end;
readln;
end.
5. ТОчно не уверен. Времени нет проверять.
Код:
var
b,n,i:integer;
s:real;
begin
writeln('vvedite chislo');
readln(n);
s:=1;
b:=1;
for i:=1 to n do
begin
b:=b*i;
s:=s+(1/1*b);
end;
write(s:5:3);
readln;
end.
Лучше быть последним из львов, чем первым среди шакалов.
Мой чат
community on struggle with zoomics

Последний раз редактировалось grom333; 20.10.2011 в 19:57.
grom333 вне форума
Старый 20.10.2011, 19:54   #7
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

хоййй
это сложно((
напиши пожалуйста*)
Анастасия12 вне форума
Старый 20.10.2011, 19:55   #8
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
По умолчанию

Помог
10 символов
iCaesy вне форума
Старый 20.10.2011, 20:04   #9
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

Большое спасибо)
Анастасия12 вне форума
Старый 20.10.2011, 20:12   #10
iCaesy
In progress...
Форумчанин
 
Регистрация: 25.09.2011
Сообщений: 161
По умолчанию

Цитата:
Сообщение от Анастасия12 Посмотреть сообщение
5. Данное число N(>0). Используя одни числа, найти сумму 1+1/(1!)+1/(2!)+1/(3!)+.........+1/(N!)
Код:
program pr5;
var
n,s,i:integer;
begin
writeln ('N:= ');
readln(n);
if (n=0) then writeln('0!=1') else
if (n<0) then writeln('Erorr !') else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s);
end;
end.
Ну вот и последняя.
Принимаю спасибки в виде репутации. =)
iCaesy вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввод с клавиатуры два целых числа без знака и вывод на экран их сумму. gelya_17 Помощь студентам 5 18.10.2010 10:31
Даны два числа Joker<777> Паскаль, Turbo Pascal, PascalABC.NET 4 02.09.2010 15:57
Функция, которая сравнивает два целых числа. ~Az@liya~ Помощь студентам 6 15.06.2010 11:09
Даны два одномерных массива, содержащие вещественные числа. Упорядочить по убыванию значен [Meeen] Общие вопросы C/C++ 1 08.06.2010 00:49
Даны два числа Vylkan Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 01.02.2010 04:13