I = 256*512*3 бит = 393216 бит = 49152 байт = 48 кБ
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
===== PacalABC.NET =====
begin
var L := ReadReal('Укажи расстояние до танка:');
Writeln('Программа завершается при попадании в танк');
Writeln('или при вводе числа, не попадающего в диапазон от 0 до 90');
var (g, v0, eps) := (9.81, 100.0, 1.0);
while True do
begin
var a := ReadReal('Введи угол наклона пушки, град:');
if not a.InRange(0.0, 90.0) then Exit;
var d := L - Sqr(v0) * Sin(2 * DegToRad(a)) / g;
if Abs(d) <= eps then
begin
Println('Ура! Попадание!');
Exit
end
else if d > 0 then
Println('Недолет')
else
Println('Перелет')
end
end.
Var a,b:integer;begina:=2;b:=0;while a<=10 dobegin a:=a+2;b:=b+3*a;end;writeln(b);end.
В ответе получится 120.