RFV,EP RE,HBR ZRJHM
DFDASD ASD ASD ASDAS DASD ASD
Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end
I 1=8=8*1024*8=65536 бит. t= I*V. t= 65536*2048=134217728 сек. I 2=134217728*512=6.871947674 в степени 10. и теперь это поделить на 8=8589934592 байта. Ответ: I 2=8589934592 байта
Шишкин - собственное имя
прости больше не могу
Ответ:
var
NumeralS, NumberS : string;
Numeral, Number : integer;
i, k : integer;
Begin
readln(Numeral, Number);
NumberS := inttostr(Number);
NumeralS := inttostr(Numeral);
for i:=1 to length(NumberS) do
if NumberS[i] = NumeralS then
inc(k);
if k>0 then
writeln(True)
else
writeln(False);
end.