Даны два целых числа

[Анастасия12]

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


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]

задача через паскаль

[Анастасия12]

Помогити а?)

[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.

[Анастасия12]

iCaesy: а можешь ещё 3 помочь решить, пожалуйста

[grom333]

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.

[Анастасия12]

хоййй
это сложно((
напиши пожалуйста*)

[iCaesy]

Помог
10 символов

[Анастасия12]

Большое спасибо)

[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.

Ну вот и последняя.
Принимаю спасибки в виде репутации. =)