// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию! begin var a:=ArrRandom(4,0,40).Println(); writeln(a.Where(x->x<=20).Sum()); end.
Минулого літа я з батьками відпочивав на морі. Ми часто приходили на пляж поблизу невеличкої пристані. Хлопчикам дуже подобалося стрибати там у воду. Якось я помітив, що десь по обіді біля пристані з'являється величезний чорний собака. У нього довга шерсть, блискучі карі очі. За такої літньої спеки він відразу кидається в море й пливе ближче до того місця, де збираються стрибуни. Там він очікує хлопчиків чи дівчаток, які будуть стрибати у воду. Спершу було незрозуміло, чому він пливе саме туди. Та підійшовши ближче, я усе второпав. Собака чекає, поки хтось стрибне, випірне, а він уже поруч, і дітлахи із задоволенням хапаються за його спину, загривок або просто за шерсть, навіть за хвоста. І Дар (так кличуть собаку) із усіх сил прямує до берега. Усім дуже весело. Одного разу прийшов Ігор Іванович — хазяїн собаки, і я запитав про дивну поведінку Дара. Ігор Іванович розповів, що це сталося кілька років тому. Маленька дівчинка стояла на пристані, оступилася і впала у воду. Дорослі кинулися допомагати їй, але Дар випередив усіх. Дівчинка вхопилася рученятами за шерсть собаки, а він із усіх сил чимдуж поплив до берега. І з тих пір він нібито рятує всіх дітей, які бавляться на пристані. Мені теж було приємно пливти до берега, тримаючись за чорну спину Дара.
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var c1:=ReadlnChar('Введите первый символ:'); var c2:=ReadlnChar('Введите второй символ:'); Print(c1); if c1>c2 then Print('>') else if c1=c2 then Print('=') else print('<'); Println(c2) end.
Примеры Введите первый символ: a Введите второй символ: b a < b
Введите первый символ: d Введите второй символ: d d = d
Введите первый символ: z Введите второй символ: m z > m
Введите первый символ: q Введите второй символ: Q q > Q
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(4,0,40).Println();
writeln(a.Where(x->x<=20).Sum());
end.