const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln ('Нет чисел, кратных 3-ем');
end.
1. Если бы программы размещались прямо на рабочем столе, то на нем же находилось бы большое кол-во папок. Ярлыки иногда используют, если папка или программа находится не на основном диске, но должны быть на рабочем столе
2. Все
Примеры переводов в разные сс:
(1) 0,101_2 = 0 * 2^0 + 1 * 2^-1 + 0 * 2^-2 + 1 * 2^-3 = 1/2 + 1/8 = 5/8 = 0.625_10
(2) 0,6_8 = 0 * 1 + 6/8 = 12/16 = 0.C_16
(3) 0.125_10 = 1/8 = 2^-3 = 0.001_2
(4) 0.4_16 = 4/16 = 2/8 = 0.2_8
Остальные переводы выполняются аналогично. Получившаяся таблица во вложении.
4*sqr(a)*sqr(b)*b*(sqr(a)+4*a*b+4*sqr(b))
или
4*sqr(a)*sqr(b)*b*sqr(a+2*b) - это если учесть, что а²+4ab+4b² = (a+2b)²