|
Задачи
|
|
1. Дан массив Х из 30- ти вещественных элементов. Подсчитать в нем количество троек образованных рядом стоящими элементами для которых выполняется условие:Х[i-1]<X<X[i+1]
2. Задан текст Т в виде массива символов. Текст состоит из слов, содержащих буквы и отделенных друг от друга одним или несколькими пробелами а конце символ точка. Посчитать количество букв в тексте.
3. Дан массив Х из n числовых элементов. Найти в массиве самую длинную подряд идущую последовательность элементов со строго убывающими значениями: Х>X[i+1]>...X
4. Заданна таблица размером n*n содержащая целые числа. Каждая из клеток таблицы находится на пересечении двух диагоналей состоящих из элементов таблицы. Требуется обнулить все диагонали на пересечении которых находится нулевой элемент.Добавлено (15.08.13, 15:24)
---------------------------------------------
Срочно просто умоляю
|
|
|
|
сессия поздновато пришла)
1.
var
x:array[1..30]of integer;
i, amount:byte;
begin
amount:=0;
for i:=1 to 30 do
read(x);
for i:=2 to 29 do
if (x[i-1]<x) and (x<x[i+1]) then amount:=amount+1;
writeln(amount);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Спасибо:)это вступительные экзамены
|
|
|
|
Здравствуйте нужжна помощь с решением задачи на паскале... вообщем вот задача С КЛАВИАТУРЫ СЧИТЫВАЕТСЯ 3 ЦЕЛЫХ ЧИСЛА ВЫВЕСТИ НА ЭКРАН КОЛ-ВО ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ И КОЛ-ВО ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ.
ОЧЕНЬ СРОЧНО ЕСЛИ ВОЗМОЖНО
|
|
|
|
var
a,b,c,q,w:byte;
begin
read(a,b,c);q:=0;w:=0;
if (a > 0) then q:=q+1 else w:=w+1;
if (b > 0) then q:=q+1 else w:=w+1;
if (c > 0) then q:=q+1 else w:=w+1;
writeln(q,' ',w);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
ПОмогите решить задачу по паскалю !!! Используя оператор While написать программу которая выведет на экран сумму и произведение первых n чисел!!
|
|
|
|
var
i,n,sum,pr:integer;
begin
sum:=0;pr:=1;
read(n);i:=1;
while i<=n do begin
sum:=sum+1;
pr:=pr*i;
i:=i+1;end;
writeln(sum,' ',pr);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Требуется посчитать сумму целых чисел от 1 до N.
|
|
|
|
var
i,sum,n:integer;
begin
read(n);
sum:=0;
for i:= 1 to n do
sum:=sum+i;
writeln(sum);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Помогите пожалуйста решить задачку!!! Лесенкой называется набор кубиков, в котором каждый более верхний слой содержит кубиков меньше, чем предыдущий. Требуется написать программу, вычисляющую число лесенок, которое можно построить из N кубиков. Добавлено (05.10.13, 11:47)
---------------------------------------------
помогите решить эту задачку!!! Требуется вычислить факториал целого числа N. Факториал обозначают как N! и вычисляют по формуле:N! = 1 * 2 * 3 * … * (N-1) * N, причем 0! = 1.Так же допустимо рекуррентное соотношение: N! = (N-1)! * N
|
|
|
|
Факториал:
function fact(x:integer):integer;
begin
if x=0 then fact:=1
else fact:=fact(x-1)*x;
end;
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
До завтра должно быть сделано..помогите пожалуйста...
1.Разработатьалгоритм и программу, в которой с помощью оператора While протабулировать функцию y=2*b3-x/4a , диапазон изменения х от 8 до 15 сшагом 0,6.
2.Одномерный массив.
Дан массив A размера 10. Найтиминимальный элемент из его элементов с четными номерами: A2, A4, A6, . . . .
|
|
|
|
