|
Решения задач на Паскале!Срочно нужно!
|
|
|
Я бы и рад проверить но компьютер сломан:'(я с телефона сижу:-)
|
|
|
|
Пойди у друга проверь)))
Нужна помощь? Сюда: 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)
|
|
|
|
Вычислить
сумму элементов
последовательности
1+ 1/(2 в квадрате)+1/(3 в квадрате)+…+1/(
n в квадрате) с точностью до
0,001.
|
|
|
|
Всё равно что-то не понятно)
Объясни может как-то своими словами?:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (RamilX) Вычислить
сумму элементов
последовательности
1+ 1/(2 в квадрате)+1/(3 в квадрате)+…+1/(
n в квадрате) с точностью до
0,001.
var
i,n:integer;
summa,kvadrat:real;
begin
summa:=0;
read(n);
for i:=1 to n do begin
kvadrat:=i*i;
kvadrat:=1/kvadrat;
summa:=summa+kvadrat;
end;
writeln(summa:1:3);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
нужно найти сумму делителей всех чисел от 2 до N и найти совпадающие. Вывести сколько таких пар.
|
|
|
|
Ладно, давай иначе:
Распиши мне алгоритм нахождения Quote (sicret) найти сумму делителей всех чисел от 2 до N и найти совпадающие. Вывести сколько таких пар.
для числа 8
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
находим сумму делителей каждой цифры от 2 до 8. (2-0,3-0,4-1(2),5-0,6-5(2+3),7-0,8-6(2+4))
проверяем есть ли совпадения(2и3,5и7)
вывод 2 пары
№ 399 | Автор: sicret |
2012-03-17, 14:32 | Изменено: sicret - Сб, 2012-03-17, 14:36
|
Репутация: [ + 0 ]
|
|
|
|
понял вроде:)
т.е. если бы было вот так:
(2-0,3-0,4-0,5-0,6-0,7-0,8-1), то нужно было бы вывести:
3, да? (2и3,4и5,6и7)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
