- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Деньга = record
Достоинство:integer;
Количество:integer;
end;
var
Лопатник: array of Деньга;
procedure ПоложитьНаЛопату(Купюра:Integer);
var
I: Integer;
УжеПоложили:Boolean;
begin
if Купюра=0 then
Exit;
УжеПоложили:=False;
for I := low(Лопатник) to High(Лопатник) do
if Лопатник[i].Достоинство=Купюра then
begin
inc(Лопатник[i].Количество);
УжеПоложили:=True;
end;
if not(УжеПоложили) then
begin
SetLength(Лопатник,Length(Лопатник)+1);
Лопатник[High(Лопатник)].Достоинство:=Купюра;
Лопатник[High(Лопатник)].Количество:=1;
end;
end;
var
Купюра:integer;
i:integer;
ВсегоНаЛопате:integer;
begin
repeat
Readln(Купюра);
ПоложитьНаЛопату(Купюра);
until Купюра=0;
ВсегоНаЛопате:=0;
for I := low(Лопатник) to High(Лопатник) do
begin
WriteLn(Format('Cost = %d Count - %d',[Лопатник[i].Достоинство,Лопатник[i].Количество]));
inc(ВсегоНаЛопате,Лопатник[i].Достоинство*Лопатник[i].Количество);
end;
WriteLn(Format('All money - %d',[ВсегоНаЛопате]));
ReadLn;
end.
guest 04.12.2008 14:27 # 0
Именно тот случай, когда смеяться надо после слова "лопата"? Мда, херня.
guest8 16.09.2019 21:30 # −999
ropuJIJIa 17.09.2019 00:55 # 0
guest8 21.09.2019 15:06 # −999
guest8 21.09.2019 15:11 # −999
guest8 24.09.2019 14:23 # −999
guest8 25.09.2019 16:12 # −999
guest8 25.09.2019 22:41 # −999
guest8 26.09.2019 16:52 # −999
guest8 26.09.2019 20:28 # −999
CBuHOKYP 27.09.2021 12:01 # 0
guest 21.08.2015 20:00 # 0
guest8 16.09.2019 21:30 # −999
inkanus-gray 21.08.2015 20:27 # 0
https://archive.is/kvTxw (How To Write Unmaintainable Code).
kegdan 21.08.2015 22:17 # 0
bormand 22.08.2015 06:12 # 0
Но, если мы вспомним про утиную типизацию...
kegdan 22.08.2015 06:27 # 0
Тьфу!
Что?
bormand 22.08.2015 08:30 # 0
kegdan 22.08.2015 08:35 # 0
Вот о чем. Только это означает, что ты можешь являться хуевым программистом, однако в другом проекте можешь писать иначе и быть хорошим программистом. Истинно же хуевый программист другие интерфейсы не поддерживает
guest8 16.09.2019 21:27 # −999
guest8 16.09.2019 21:28 # −999
guest8 16.09.2019 21:28 # −999
guest8 16.09.2019 21:29 # −999
guest8 16.09.2019 21:30 # −999
guest8 16.09.2019 21:30 # −999
guest8 11.07.2020 03:31 # −999
JloJle4Ka 27.09.2021 07:32 # 0
rotoeb 27.09.2021 09:17 # +1
А КАК ЖЕ ИПЭВЭШЕСТЬ?!?!?!?!
guest6 27.09.2021 14:19 # +1
Вот какой-нить 2001-й -- таки да. У всех дайлап, дайлап с белым IP, порты отрыты, файрвола нет
ObeseYoung 27.09.2021 16:08 # +1