Python 3.7.3
a = int(input())
a = a * 45 + (a // 2) * 5 + ((a + 1) // 2 - 1) * 15
print(a // 60 + 9, a % 60)
<em>1. Современное решение</em>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-10,10); a.Println;
Swap(a[a.IndexMax],a[a.IndexMin]); a.Println;
end.
<u>Пример</u>
-4 4 5 9 8 -3 -10 -9 -2 -2
-4 4 5 -10 8 -3 9 -9 -2 -2
<em>2. Решение в стиле "ТурбоПаскаль 1983г."</em>
var
i,imax,imin:integer;
a:array[1..10] of integer;
begin
Randomize;
imax:=1;
imin:=1;
for i:=1 to 10 do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i
else
if a[i]>a[imax] then imax:=i
end;
Writeln;
i:=a[imax]; a[imax]:=a[imin]; a[imin]:=i;
for i:=1 to 10 do
Write(a[i],' ');
Writeln
end.
2) 3-неправильное положение ног(они должны стоять ровно, под углом 90°)
2-не ровная спина, слишком откинулся назад, сидеть за монитором человек должен с прямой осанкой
1-слишком наряжена шея, не ровно сидит.
4)Одним из первых устройств, облегчающих вычисления, можно считать абак. Следующим этапом люди изобрели аналоговый компьютер. А впоследствии и до сих пор мы пользуемся цифровым компьютером.
5) Робот является одним из признаков развития вычислительной техники 1)пятого поколения, потому что в основе его лежит 2)искусственный интеллект.
<u>1. Короткий вариант</u>
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('k=',a.Where(x->x>0).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
-69 10 83 -61 -21 -98 -75 -78 27 88 67 -84 61 62 -41
k=7
<u>2. "Школьный" вариант (а кто сказал, что будет легко?)</u>
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
const
nn=100;
var
i,n,k:integer;
a:array[1..nn] of integer;
begin
Write('n= '); Read(n);
Randomize;
k:=0;
for i:=1 to n do begin
a[i]:=Random(199)-99;
Write(a[i],' ');
if a[i]>0 then Inc(k)
end;
Writeln;
Writeln('k=',k)
end.
<u><em>Тестовое решение</em></u>
n= 15
28 46 88 -14 -55 -25 52 43 -7 17 71 -8 -34 56 79
k=9
Var a,b,n:integer;
begin
writeln('n=');
readln(n);
<span>a:=n mod 10;
b:=n div 10;
if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes')
else
writeln('no');
readln;
end.
__________________________
</span>var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
b:=n div 10;
if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)
then writeln('yes')
else
writeln('no');
readln;
end.