|
Решения задач на Паскале!Срочно нужно!
|
|
ПОМОГИТЕ!ОЧЕНЬ СРОЧНО!НУЖНО!ПОЖАЛУЙСТА!
1)найти сумму чисел от n1 до n2
2)найти кол-во чисел в интервале от n1 до n2, заканчивающихся на 0
3)найти кол-во чисел делящихся на 2и 3 одновременно,в интервале от n1до n2.
|
|
|
|
var
s:string;
i,glasnue,soglasnue:integer;
begin
glasnue:=0;soglasnue:=0;
readln(s);
for i:=1 to length(s) do
if (ord(s[i])=102)or(ord(s[i])=101)or(ord(s[i])=106)or
(ord(s[i])=115)or(ord(s[i])=98)or(ord(s[i])=39)or
(ord(s[i])=122)or(ord(s[i])=46)or(ord(s[i])=96)or(ord(s[i])=116) then
glasnue:=glasnue+1 else soglasnue:=soglasnue+1;
if glasnue>soglasnue then writeln('glasnuh')else
if glasnue<soglasnue then writeln('soglasnuh') else writeln('odinakovo');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (timati_dg) ПОМОГИТЕ!ОЧЕНЬ СРОЧНО!НУЖНО!ПОЖАЛУЙСТА!
1)найти сумму чисел от n1 до n2
2)найти кол-во чисел в интервале от n1 до n2, заканчивающихся на 0
3)найти кол-во чисел делящихся на 2и 3 одновременно,в интервале от n1до n2.
1)
var
i,n1,n2,chislo,summa:integer;
begin
summa:=0;
read(n1,n2);
for i:=n1 to n2 do begin
read(chislo);
summa:=summa+chislo;end;
writeln(summa);
end.
2)
var
i,n1,n2,chislo,kolichestvo:integer;
begin
read(n1,n2);
kolichestvo:=0;
for i:=n1 to n2 do begin
read(chislo);
if chislo=0 then kolichestvo:=kolichestvo+1;end;
writeln(kolichestvo);
end.
3)
var
i,n1,n2,chislo,kolichestvo:integer;
begin
read(n1,n2);
kolichestvo:=0;
for i:=n1 to n2 do begin
read(chislo);
if (chislo mod 2=0)and(chislo mod 3=0) then kolichestvo:=kolichestvo+1;end;
writeln(kolichestvo);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Дано целое число n. Выведите следующее за ним четное число. При решении этой задачи нельзя использовать условную инструкцию if и циклы.
Пример
Ввод Вывод
7 8
8 10
|
|
|
|
Quote (500kg) Дано целое число n.
Выведите следующее за ним
четное число. При решении
этой задачи нельзя
использовать условную
инструкцию if и циклы.
Пример
Ввод Вывод
7 8
8 10
var a,n:integer;
begin
readln(n);
a:=(n div 2)*2+2;
writeln(a);
end .
|
|
|
|
Я вроде писал ответ, но спасибо))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Кто может решите пожалуйста, буду век благодарен.
1 задача: Найти наибольший элемент массива X(N), кратный трем и его порядковый номер.
2 задача: Дан массив М(45,30),сформированный случайным образом из целых чисел диапазона[-10,40].Найти количество элементов,которые больше своих соседей по строке.
3 задача: Дана строка символов,состоящая из цифр от 0 до 9 и пробелов.Группы символов,разделенные пробелами(одним или несколькими)и не содержащие пробелов внутри себя,будем называть числами.Удалить из строки числа, кратные пяти.Вывести на печать полученную строку и количество удаленных слов.
|
|
|
|
1.
var
i,n,chislo,max,nomer:integer;
begin
read(n);
max:=low(max);
for i:=1 to n do begin
read(chislo);
if (chislo>max)and(chislo mod 3=0) then begin max:=chislo;nomer:=i;end;end;
writeln(max,' ',nomer);
end.
2.
var
massiv:array[1..45,1..30]of integer;
i,j,kolichestvo:integer;
begin
kolichestvo:=0;
randomize;
for i:=1 to 45 do
for j:=1 to 30 do
massiv[i,j]:=random(41);
for i:=1 to 45 do
for j:=1 to 30 do
if (massiv[i,j]>massiv[i,j-1])and(massiv[i,j]>massiv[i,j+1]) then kolichestvo:=kolichestvo+1;
writeln(kolichestvo);
end.
3. Числа могут быть любыми или только в диапазоне 0..9 ?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
2)Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.
С начала суток прошло n секунд. Выведите, что покажут часы.
Пример
Ввод Вывод
3602 1:00:02
129700 12:01:40
№ 429 | Автор: 500kg |
2012-03-23, 11:02 | Изменено: 500kg - Пт, 2012-03-23, 23:13
|
Репутация: [ + 0 ]
|
|
|
|
|
Berestovskiy, В ДИАПАЗОНЕ ОТ 0 ДО 9.
|
|
|
|
Quote (500kg) 2)Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.
С начала суток прошло n секунд. Выведите, что покажут часы.
Пример
Ввод Вывод
3602 1:00:02
129700 12:01:40
var
chas,minutu,secundu:longint;
begin
chas:=0;minutu:=0;
read(secundu);
while secundu>60 do begin
secundu:=secundu-60;
minutu:=minutu+1;
if minutu=60 then begin minutu:=0;chas:=chas+1;end;
end;
chas:=chas mod 24;
if(minutu<10)and(secundu<10)then writeln(chas,':0',minutu,':0',secundu) else
if(minutu<10)and(secundu>=10)then writeln(chas,':0',minutu,':',secundu) else
if(minutu>=10)and(minutu<10)then writeln(chas,':',minutu,':0',secundu) else
writeln(chas,':',minutu,':',secundu);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Ggate) Berestovskiy, В ДИАПАЗОНЕ ОТ 0 ДО 9.
var
a:string;
i,kolichestvo:integer;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]=' ')and(a[i+1]=' ') then delete(a,i,1);
while pos('5',a)<>0 do begin
delete(a,pos('5',a),2);kolichestvo:=kolichestvo+1;end;
writeln(a);
writeln(kolichestvo);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Напишите алгоритм и программу на языке Паскаль, выполняющие следующие операции:
1) Сцепление двух списков;
2) Инвертирование списка, при котором первый элемент становится последним и т.д.;
3) Удаление п-го элемента из списка;
4) Создание списка, представляющего собой объединение (по операции ИЛИ) элементов двух списков;
5) Вставка элемента после п-го элемента списка;
6) Размещение элементов списка в возрастающем порядке;
7) Вычисление числа элементов в списке;
8) Создание копии списка.
P.S Под списком подразумевается массив
Дзисай
|
|
|
|
Помогите пожалуйста с задачами в паскале:
1. Пусть x0 = c; x1 = d; xk = qxk-1+rxk-2+b k=2,3,...
Даны действительные числа q,r,b,c,d, натуральное n (n>=2). Получить xn.
(q=1.5; r=2.5; b=5; c=3.5; d=4.5; n=6)
2. Дано натуральное число n. Найти наибольшее среди чисел ke (k =1,...,n), а также сумму
всех этих чисел.
3. .Дана действительная матрица размера mn. Определить числа b1,...,bm, равные соответственно разностям наибольших и наименьших значений элементов строк.
Заранее спасибо!
|
|
|
|
помогите пожалуйста написать программу
Ввести с клавиатуры целочисленную матрицу размера 4х4. Найти номер строки матрицы с максимальной суммой элементов.
|
|
|
|
var
a:array[1..4,1..4]of integer;
i,j,stroka,summa,max:integer;
begin
stroka:=0;summa:=0;max:=low(max);
for i:=1 to 4 do begin
for j:=1 to 4 do begin
read(a[i,j]);
summa:=summa+a[i,j];end;
if summa>max then begin max:=summa;stroka:=i;end;
summa:=0;
end;
writeln(stroka);
writeln(max);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Спасибо большое! а можете еще помочь пожалуйста!
1) Ввести произвольную символьную цепочку. Удвоить её символы на нечетных местах. В полученной цепочке подсчитать число символов, совпадающих с последним.
|
|
|
|
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).
var
s:string;
i,sum:integer;
c:char;
begin
sum:=0;
readln(s);
c:=s[length(s)];
for i:=1 to length(s)-1 do
if s[i]=c then sum:=sum+1;
for i:=1 to length(s) do
if i mod 2<>0 then write(s[i],s[i]) else write(s[i]);
writeln;
writeln(sum);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите люди добрые!!!)))
Создать типизированный файл tovar.dat, содержащий сведения о товарах:
- название;
- страна-изготовитель;
- дата изготовления: день, месяц, год;
- цена за единицу;
а) обеспечить просмотр файла в табличной форме;
б) удалить из файла сведения о товарах, выпущенных раньше заданной даты;
в) найти самый дорогой и самый дешевый товары;
г) подсчитать, сколько видов товаров выпускает каждая страна.
|
|
|
|
С чем именно проблемы?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
