Program Task;
Const m = 12;
Var a: Array [1..m] of Integer;
i: Integer;
Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;
Function Min(a, b: Integer): Integer;
Begin
If a < b Then
Result := a
Else
Result := b;
End;
Begin
WriteLn('Введите среднемесячные температуры за год (через пробел)');
For i := 1 To m Do
Read(a[i]);
WriteLn('Самая высокая температура летом равна ', Max(Max(a[6], a[7]), a[8]));
WriteLn('Самая низкая температура зимой равна ', Min(Min(a[11], a[12]), a[1]));
ReadLn;
End.
Вечером он пришёл с тренировки домой. Он сильно устал. Сил не было даже на завода будильника. Он сразу лёг спать. Во сне ему казалось что он тренируется, и тренируется. Вдруг, тренировку резко прекращает тренер. Вдруг он просыпается- "а, так это же телефон звонит- что в такую рань то, с ума сошли чтоли". Он резко встаёт с дивана и идёт в прихожую к телефонному аппарату. Но всёравно глаза закрываются, он зевает. Останавливается. Потом опять продолжает свой поход к нервно звонящему телефону. Взяв трубку, он услышал: "Ты что, с ума сошёл чтоли, Иванов? Как тебе не стыдно опаздывать на 4 урок?- "Марья Алексевна"- продолжал он нервным голосом- "Простите, недараззуменьице, я щас, я мигом"- он повесил трубку, резко направился переодеваться из спортивной формы, в которой он завалился спать вчера даже не сняв её. Он резко взял ранец, резко побежал к двери. Но что-то останавливало его- а, вспомнил он- сменная обувь. Он резко взял сменку, валявшуюся возле тумбочки в коридоре. Начался кросс до школы. Он резко вбежал в неё- резко ворвался в свой класс. Фу, слава богу- сказал он- спасибо вам Марья Алексевна. Я пришёл. А то родители если бы узнали, то мне бы кранты дома устроили. Марья Алексевна (улыбаясь) А они тебе это устроют- я сказала им.))
256 (10) = 100 (16)
400 (10) = 190 (16)
1234 (10) = 4D2 (16)
2012 (10) = 7DC (16)
Я само ведро буду обозначать цифрой обозначающей его объём , например восьми литровый бидон это 8 ,а сколько в нём на данный масла цифрой в скобках, например (1);
из 8(8) в 3(5)
из 8(5) в 5(5)
из 3(3) в 8(3)
из 5(5) в 3(3)
из 3(3) в 8(6)
из 5(2) в 3(2)
из 8(6) в 5(5)
из 5(5) в 3(3) <== после этого переливания в 5 литровом бидоне остаётся 4 литра
из 3(3) в 8(4)<== после этого переливания в 8 литровом бидоне остаётся 4 литра
Алг Число
нач
цел n, k
вывод "Введите целое число", нс
ввод n
k:=0
нц пока n>0
если mod(n,10)=9 то
k:=k+1
все
n:=div(n,10)
кц
если k=2 то
вывод "Да."
иначе
вывод "Нет."
кон