Объем памяти = 1280*1024*8 бит = 1280*1024*8/8 байт = 1280*1024 байт =
1280*1024/1024 Кбайт = 1280 Кбайт
Ответ будет
167.152.184.255
Var array = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20];
for (i=0;i<=array[i];i++)
{
if (array[i]>5) document.write(i)
}
If - если
Then - то
Else - иначе
Например:
C:= A - B;
(Если С больше нуля то)
If C > 0 then begin
(Вывод о том что)
Writeln(число положительное);
...
(Иначе оно)
End esle
(Может быть только отрицательным)
Writeln(число отрицательное);
...
Это же можно проделать с двумя if(если)
If C > 0 then begin
Writeln(число положительное);
...
(Если С меньше нуля)
If C < 0 then begin
Writeln(число отрицательное);
...
//Pascal ABC.NET 3.1 сборка 1256
Var
b,a,m,ar:real;
i:integer;
begin
readln(b,m,a);
i:=0;
ar:=a*m;
while ar>a do
begin
inc(i);
a:=a*(b/100+1);
end;
writeln(i);
end.
Пример ввода:
33
2
100
Пример вывода:
3