Т.к. abc(x) = a*x^2+b*x+c, то нужно найти такие x, чтобы x^3 > 21 и x^2 <= 21.
при x=2: x^2 = 4, x^3 = 8 - не подходит
при x=3: x^2 = 9, x^3 = 27 - подходит
при x=4: x^2 = 16, x^3 = 64 - подходит
при x=5: x^2=25, x^3 = 125 = не подходит
Ответ: 3, 4
(4<<2)*((9>>2)+1)
1) 4<<2 = 4*2*2=16 (сдвиг влево на каждый разряд удваивает число)
2) 9>>2 = 2 (сдвиг вправо на каждый разряд уменьшает число вдвое, остаток теряется)
3) 2+1 = 3
4) 16 * 3 = 48
Итого, три пары скобок
1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.
// PascalABC.NET 3.0, сборка 1076
var
c:char;
s:string;
begin
s:='';
for c:='А' to 'Я' do begin s:=s+c; Writeln(s) end
end.
<em><u>Тестовое решение:</u></em>
А
АБ
АБВ
АБВГ
АБВГД
АБВГДЕ
АБВГДЕЖ
АБВГДЕЖЗ
АБВГДЕЖЗИ
АБВГДЕЖЗИЙ
АБВГДЕЖЗИЙК
АБВГДЕЖЗИЙКЛ
АБВГДЕЖЗИЙКЛМ
АБВГДЕЖЗИЙКЛМН
АБВГДЕЖЗИЙКЛМНО
АБВГДЕЖЗИЙКЛМНОП
АБВГДЕЖЗИЙКЛМНОПР
АБВГДЕЖЗИЙКЛМНОПРС
АБВГДЕЖЗИЙКЛМНОПРСТ
АБВГДЕЖЗИЙКЛМНОПРСТУ
АБВГДЕЖЗИЙКЛМНОПРСТУФ
АБВГДЕЖЗИЙКЛМНОПРСТУФХ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
# -*- coding: utf-8 -*-
import math as m
print 'введите радиус: '
r = input()
c = 2 * m.pi * r
s = m.pi * (r ** 2)
v = 4 / 3 * m.pi * (r ** 3)
print('''длина окружности: {cv}
площадь круга: {sv}
объём сферы: {vv}
'''.format(cv=c, sv=s, vv=v)
)