Не знаю, какой язык тебе нужен, но вот фрагмент на VB Console, он, наверное , должен быть понятен всем
dim a,k,n as integer
N = console.readline
For i as integer = 1 to N
a = <span>console.readline
</span>if a mod 4 = 0 and a > k then k = a
Next
Console.WriteLine(a)
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
program pascal;
var s, v, r:real;
begin
writeln('ВВедите радиус');
readln(r);
s:=4*3.14*r*r;
v:= 4/3*3.14*r*r;
Writeln('Площадь шара=',s,'Объем шара=',v);
end.
У меня получилось 1 решение при 001
_______________
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var i:=0;
range(0,10).Select(x->3**x).ForEach(t->begin writeln(i,' ',t); inc(i); end);
end.
Пусть х - количество символов
16*x-8*x=4*2^13 (килобайты перевела в биты)
8х=2^15
x=2^12
x=4096