 Автор |
Сообщение |
Mvd
Эксперт
 |
|
| Цитата: |
program test2;
var
a,b,c,n,i:integer;
begin
Readln(a,b,c);
if ((a+b+c) mod 3 = 0) then
begin
n:=(a+b+c) div 3;
if (a>n) then i:=i+a-n;
if (b>n) then i:=i+b-n;
if (c>n) then i:=i+c-n;
Writeln(i);
end
else Writeln('Impossible');
Readln;
end.
|
|
|
 |
|
 |
CTPEJIOK
...
 |
|
Спасибо! Спас 4 человека)
В 3 у нас ошибка  |
|
| |
|
|
Mvd
Эксперт
|
|
CTPEJIOK
В папке с программой должен лежать файл in.txt в котором и задана эта строчка. |
|
| |
|
|
dmc94
Начинающий
|
|
| Нам надо чтобы эта строчка писалась в паскале |
|
| |
|
|
CTPEJIOK
...
|
|
Mvd
Понятно, спасибо
Все осталась ласт задача.
Петя придумал новую игру. На столе в ряд раскладываются карточки с целыми числами. Петя решил, что из полученного ряда можно убрать карточку, если на двух соседних с ней карточках (справа и слева) записаны числа строго большие. Игра прод до тех пор, пока на столе не ост карточек, которые можно убрать.
Напишите программу, кот поможет Пете узнать, какой ряд карточек ост в конце игры.
Вход даные
целое число N(1<_ N <_ 100) - кол-во карточек с числами, расп в ряд. След строка сод N разделенных пробелом чисел a. (-100<a< 100) - записан на кар числа.
Вых
В первой строке выход файлы выведите целое число K - кол-во ост карточек.
На след строке вывдете через пробле числа на ост карточка |
|
| |
|
|
dmc94
Начинающий
|
|
| Mvd писал(а): |
CTPEJIOK
В папке с программой должен лежать файл in.txt в котором и задана эта строчка. |
Сделай пожалуйстоооо так чтобы строчка писалась не в файле а в паскале |
|
| |
|
|
Wirs
Начинающий
|
|
а у мну вообще паскаль зависает при третьей задаче..... |
|
| |
|
|
dmc94
Начинающий
|
|
ПЛИИИЗЗЗЗЗ  |
|
| |
|
|
Mvd
Эксперт
|
|
| dmc94 писал(а): |
| Сделай пожалуйстоооо так чтобы строчка писалась не в файле а в паскале |
| Цитата: |
program test3;
var
i,a,max:integer;
S:string;
abc: array [1..26] of integer;
txt:text;
begin
S:='тут пишем строчку';
for i:=1 to 100 do
for a:=1 to 26 do
if (S[i]=char(a+96)) then inc(abc[a]);
max:=1;
for i:=1 to 26 do
if (abc[i]>abc[max]) then max:=i;
Assign(txt,'out.txt');
Rewrite(txt);
Writeln(char(96+max),' ',abc[max]);
Write(txt,char(96+max),' ',abc[max]);
close(txt);
readln;
end.
|
|
|
| |
|
|
dmc94
Начинающий
|
|
СПАСИБО  |
|
| |
|
|
Wirs
Начинающий
|
|
спасибо!!!респект и уважуха тебе!!!   |
|
| |
|
|
Mvd
Эксперт
|
|
CTPEJIOK
| Код: |
program test4;
var
i,code,a,N:integer;
arr:array [1..100] of integer;
S,tmp:String;
ok: boolean;
begin
a:=1;
ok:=false;
Readln(N);
Readln(S);
S:=S+' ';
for i:=1 to Length(S) do
if (S[i]=' ') then
begin
val(tmp,arr[a],code);
tmp:='';
inc(a);
end else tmp:=tmp+S[i];
While (ok=false) do
begin
ok:=true;
for i:=2 to N-1 do
if ((arr[i-1]>arr[i]) and (arr[i+1]>arr[i]) ) then
begin
for a:=i to N-1 do
arr[a]:=arr[a+1];
dec(N);
ok:=false;
end;
end;
Writeln(N);
for i:=1 to N do
Write(arr[i],' ');
readln;
end.
|
|
|
| |
|
|
AlexRock
Гуру
 |
|
Ну что, Mvd, уже выиграл олимпиаду? А то Стрелок силён в Паскале так же, как в русском.  |
|
| |
|
|
CTPEJIOK
...
|
|
AlexRock
Ты бы меня видел, стоят учителя, бегают туда-сюда), а я пишу ))))
Mvd
Спасибо!) еще раз. |
|
| |
|
|
Mvd
Эксперт
|
|
CTPEJIOK
Да пожалуйста! Когда на городскую едите?  |
|
| |
|
|
CTPEJIOK
...
|
|
Mvd
я не поеду. я 2 написал, если написал больше училка понила, что я делал не сам) а те 2 написали все)))
3 задача, ваще ппц. |
|
| |
|
|
BS
Эксперт
|
|
| Будите ему помогать, он ничему не научится. |
|
| |
|
|
CTPEJIOK
...
|
|
| BS писал(а): |
| Будите ему помогать, он ничему не научится. |
мне это и не надо(просто, чтоб не получить 0 баллов, попросил помощи), а так, я просто пропустил уроки)Последний раз редактировалось: CTPEJIOK (Пт 16-10-09 : 14-46), всего редактировалось 1 раз |
|
| |
|
|
shambler[2.0]
Цитировать
 Предупреждений : 3
|
|
| delПоследний раз редактировалось: shambler[2.0] (Ср 23-03-22 : 03-25), всего редактировалось 1 раз |
|
| |
|
|
CTPEJIOK
...
|
|
| shambler[2.0] писал(а): |
| Юзают, даже не смотря код. |
я смотрел думал думал))))
Тему в мусорку. |
|
| |
|
|
|
