Вы не указали конкретно, что нужно сделать. Ну, если нужно написать программу в Pascal, то она ниже. Либо напишите нормально что Вам нужно.
Begin
Writeln('На запад от Москвы природа подмосковного края.');
End.
<span>int main()
</span>{
int a[30] = {45, 42, 33, 54, 55, 56, 57, 58, 59, 54, 45, 42, 33, 54, 55, 56, 57, 58, 59, 54, 45, 42, 33, 54, 55, 56, 57, 58, 59, 54};
int n=0;
for (int i=0; i<30; i++)
{
if ((a[i]>50)&&(a[i]<=57)) {n++;}
}
printf("%d "<span>, n); n - количество спортсменок с нужным весом</span>
}
1.
1101 1000 (2) = D9 (16)
D9, DA, DB, DC, DD, DE, DF. Ответ: 7 чисел (тут мало - проще пересчитать чем переводить в десятичную и вычислять).
2. переведём второе число 256 (8) в двоичную систему счисления (так как это легко в уме сделать)
256 (8) = 010 101 110 (2) = 0 1010 1110 (2) = 1010 1110 (2)
Получилось такое же число как и первое, то есть их разность равна 0.
Ответ значит равен третьему числу A(16) = 10.
<em>Как говорится, это вам не С++ - тут все очень быстро и коротко ))))
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var L:=new List<(string,real)>;
// это не решение задачи, это ввод данных
Writeln('Введите в каждой строке фамилию, пробел, время');
var i:=1;
repeat
var s:=ReadlnString(i+': ');
if s[1]='*' then break;
var w:=s.ToWords;
L.Add(Rec(w[0],real.Parse(w[1])));
i+=1;
until false;
// а теперь само решение
Writeln(L.MinBy(x->x[1]))
end.
<u>Пример</u>
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)
Сколько времени (в минутах) затратит школьник на дорогу из школы
