Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

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

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


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
Репутация: 13
По умолчанию

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

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

icq: 443579260
skype: icaesy
По умолчанию

Цитата:
Сообщение от Анастасия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
Репутация: 13
По умолчанию

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

icq: 49508436
По умолчанию

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
Репутация: 13
По умолчанию

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

icq: 443579260
skype: icaesy
По умолчанию

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

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

icq: 443579260
skype: icaesy
По умолчанию

Цитата:
Сообщение от Анастасия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 вне форума  
Закрытая тема



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввод с клавиатуры два целых числа без знака и вывод на экран их сумму. gelya_17 Помощь студентам 5 18.10.2010 10:31
Даны два числа Joker<777> Паскаль 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 2 01.02.2010 05:13




04:37.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


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

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru