Var
n,k:Integer;
Begin
Read(n,k);
n:=n*12;
k:=n*38;
Writeln(n+k);
end.
Program n1;
Uses CRT;
Var a,b,s,i: integer;
begin
writeln('Vvedite A i B');
readln(a,b);
If a>b then
for i:=b to a do
begin
writeln(i);
s:=s+i;
end
else
if b>a then
for i:=a to b do
begin
writeln(i);
s:=s+i;
end
else writeln('ravny');
writeln('Summa = ',s);
readln
end.
V = 25 Мбайт(26214400 байт), t1 = 8мин (480 с), U - пропускная способность, t2 = 2400 c
U= V/t
U= 26214400 байт / 480 с = 54613,3 байт/c
V2 = U * t2 = 54613.3 * 2400 c = 131071920 байт = 125 Мбайт
Лошадь большая жеребенок маленький
Ложкой нужно есть кажу
Зимой на коньках кататься по льду
Ухо слышит звуки
у собаки растет шерсть
Чай с сахаром будет слаще
program n;
uses crt;
var i,s:integer;
begin
s:=0;
for i:=50 to 600 do
if (i mod 8)=0 then s:=s+i;
writeln(s);
<span>end.</span>