sad = 0
minlol = 190
maxlol = 150
name = input()
while name != '!':
name = int(name)
if name >= 150 and name <= 190:
sad += 1
if name < minlol:
minlol = name
if name > maxlol:
maxlol = name
name = input()
print(sad)
print(minlol, maxlol)
X / 2^i = 25
x*0.4/2^i+t=15
отсюда видим , что 10=15-t т.е t=5 секунд
type
Data = record
Year: 1..2100;
Month: 1..12;
Day: 1..31;
end;
begin
writeln(sizeof(Data) * 8, ' бит'); {sizeof(Data) показывает размер типа Data в байтах
<em>Если посмотреть, то практически русские слова заменили английскими.</em>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var a,b:real;
Read(a,b);
if a<b
then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
<em>На самом деле можно написать и несколько покороче</em>
begin
var (a,b):=ReadReal2;
if a<b then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.