1 и 4
Так как остальное это обычные часто используемые айпишки
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
1) поместится 4000 байт, т.к. 4000 байт=4000/1024=3.9Кб
не поместится 5600 байт, т.к. 5600 байт=5600/1024=5.4Кб
Ответ: Поместится *pdf
<u>Pascal:</u>
var a:array [1..5] of integer;
i:integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(31)-15;
write (a[i]:4);
end;
writeln;
for i:=1 to 5 do
begin
a[i]:=a[i]*2;
write (a[i]:4);
end;
writeln;
readln;
end.
<u>C++:</u>
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
int main()
{
int a[5];
srand (time(NULL));
for (int i = 0; i<5; i++)
{
a[i] = rand()%15-15;
cout <<a[i] <<" ";
}
cout <<endl;
for (int i = 0; i<5; i++)
{
a[i]*=2;
cout <<a[i] <<" ";
}
return 0;
}