Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, плиз, решить две задачи по паскалю)
Помогите, плиз, решить две задачи по паскалю)
№1. Дан массив D(M,K) целых чисел. Подсчитать в нем количество троек di,j; di,j+1; di,j+2, в каждой из которых элементы равны.
№2. Дана строка символов, состоящая из прописных и строчных латинских букв и пробелов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Вывести на печать слова, состоящие из равного количества строчных и прописных букв (например, fBcD, eaPO и т.п.) и самое длинное из таких слов.
1 | Автор: Garik | 2012-05-07, 18:27   |  Репутация: [ + 0 ]
Quote (Garik)
№1. Дан массив D(M,K) целых чисел. Подсчитать в нем количество троек di,j; di,j+1; di,j+2, в каждой из которых элементы равны.


var
d:array[1..100,1..100];
n,m,i,j,s:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(d[i,j]);
for i:=1 to n do
for j:=2 to m-1 do
if (d[i,j]=d[i,j-1])and(d[i,j]=d[i,j+1]) then s:=s+1;
writeln(s);
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-08, 15:21   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, плиз, решить две задачи по паскалю)
Страница 1 из 11
Поиск: