Program anima;
Var a,b,c:integer; // Стороны треугольника
begin
writeln('Введите длины сторон: '); // Вывод на экран с последующей строкой
readln(a,b,c); // Вводимые переменные (стороны)
if (a=b) and (a=c) and (b=c) then // Условие
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
<span>end.</span>
Ответ: 32 Кбайт
2 в 18 степени = 262144 бит => 262144:8=32768 байт => 32768 : 1024 = 32 Кбайт
Вот программа:
var n,k,m,a,b: integer;
begin
readln(n);
readln(k);
readln(m);
a:=n div (k+m);
b:=n mod (k+m);
if b=0
then a:=2*a else if b<=k then a:=2*a+1 else a:=2*a+2;
writeln(a);
<span>end.</span>
Второе задание ответ : 2)
Первое задание ответ: разрядность 6
А где тест/ задание?
сфоткай