|
Решения задач на Паскале!Срочно нужно!
|
|
Обращайся ещё))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
a,n,i:integer;
begin
a:=2;
while p<100 do begin
read(n);
for i:=1 to n-1 do
a:=a*2;
a:=a+1;n:=n+1;end;
writeln('Poryadkovui nomer
elementa: ',n);
writeln('Element = ',a);
end.
Так будет?
|
|
|
|
Вот так будет:
var
i,q,a,n,p:integer;
begin
a:=2;
n:=1;q:=2;
while p<100 do begin
for i:=1 to q-1 do
a:=a*2;
q:=q+1;
p:=a;
a:=2;
n:=n+1;
end;
writeln(n);
writeln(p);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Спасибо огромное выручил:-)
|
|
|
|
Обращайся))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
a вот первую вот так надо по-моему:
Var i,n,a,b,x:integer;
a:=b;
Writeln('введите количество чисел последовательности');
Read(n);
Writeln('вводите последовательность');
Read(a);
For i:=2 to n do
Begin
Read(a);
If a>b then a:=b
End;
If b<a then writeln('убывает') else writeln ('не убывает');
End.
|
|
|
|
Ну тогда попробуй в своей программе ввести:
9
9 8 7 6 5 4 3 2 1
И увидишь как она у тебя правильно работает:))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Я бы и рад проверить но компьютер сломан:'(я с телефона сижу:-)
|
|
|
|
Пойди у друга проверь)))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
помогите решить задачу срочно нужно
1.переставить i-уюи j-ую строки матрицы
2.число n содержит нечетное количество цифр.среднюю цифру заменить на 7(с помощью цикла while и repeat)Добавлено (15.03.12, 13:43)
---------------------------------------------
помогите решить задачу срочно нужно
1.переставить i-уюи j-ую строки матрицы
2.число n содержит нечетное количество цифр.среднюю цифру заменить на 7(с помощью цикла while и repeat)
|
|
|
|
Помогите пожалуйсто!!!!заранее спасибо!!!
Из матрицы В(m,n) сформировать матрицу C(m,n),каждый элемент которой получается путём вычитания из соответствующего элемента матрицы В первого элемента данной строки.
|
|
|
|
Var i,n,b,x:integer;
begin;
x:=b;
Writeln('введите количество
чисел последовательности');
Read(n);
Writeln('вводите
последовательность');
Read(x);
For i:=2 to n do
Begin
Read(x);
If x>b then b:=x
End;
If x<b then writeln('убывает')
else writeln ('не убывает');
End .
A вот так правильно? Проверьте, пожалуйста, буду признателен)
|
|
|
|
Quote (RamilX) У меня нет друзей
Сочувствую
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (babenok_kseniya) 1.переставить i-уюи j-ую строки матрицы
var
a,b:array[1..100]of integer;
c:array[1..100,1..100]of integer;
q,w,i,j,n:integer;
begin
read(n);
read(q,w);
for i:=1 to n do
for j:=1 to n do
read(c[i,j]);
for i:=1 to n do begin
if i=q then
for j:=1 to n do
a[j]:=c[i,j];
if i=w then
for j:=1 to n do
b[j]:=c[i,j];end;
for i:=1 to n do
c[w,i]:=a[i];
for i:=1 to n do
c[q,i]:=b[i];
for i:=1 to n do begin
for j:=1 to n do
write(c[i,j],' ');
writeln;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (375298973678) Помогите пожалуйсто!!!!заранее спасибо!!!
Из матрицы В(m,n) сформировать матрицу C(m,n),каждый элемент которой получается путём вычитания из соответствующего элемента матрицы В первого элемента данной строки.
var
a:array[1..100,1..100]of integer;
i,j,n,m:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
for i:=1 to m do
for j:=2 to n do
a[i,j]:=a[i,j]-a[i,1];
for i:=1 to m do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (RamilX) Var i,n,b,x:integer;
begin;
x:=b;
Writeln('введите количество
чисел последовательности');
Read(n);
Writeln('вводите
последовательность');
Read(x);
For i:=2 to n do
Begin
Read(x);
If x>b then b:=x
End;
If x<b then writeln('убывает')
else writeln ('не убывает');
End .
A вот так правильно? Проверьте, пожалуйста, буду признателен)
Не правильно
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Вводится число N. Найти количество пар различных чисел , лежащих в интервале от 2 до N, у которых суммы делителей(не включая сами числа) одинаковы. Пары отличающиеся только порядком чисел считаются одинаковыми.
|
|
|
|
напиши пример ввода-вывода, а лучше парочку
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
ввод 8 вывод 2(2,3,5,7)
ввод 10 вывод 2 (2,3,5,7)
ввод 25 вывод 5 (2,3,5,7,6,25,11,13,17,23)
ввод 26 вывод 6(2,3,5,7,11,13,17,23,6,25,12,26)
|
|
|
|
