For i:=1 to 9 do
for j:= 0 to 9 do
if((i*i+j*j-3*i*j=1)and((i*10+j)div(i+j) = 7)and((i*10+j)mod(i+j) = 7) then write('Искомое число',i*10+j);
end.
Скорость передачи равна 32Кбит/с = 4Кбайт/с
Время = 15с
Один символ = 8бит = 1байт
На одной странице 48 символов
1) 4Кбайт/с*15с = 60Кбайт - вес документа
2) 60Кбайт/(1Байт*48) = 1250 - страниц
Const N = 10;
var A: array[1..10] of integer;
i, len: integer;
s: string;
begin
write('Введите слово: ');
readln(s);
len := length(s);
for i := 1 to len do begin
A[ i ] := ord(s[i]);
writeln('Код символа ', s[ i ], ': ', A[ i ]);
end;
<span>end.</span>
1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.
1. Размер фото 6*8= 54 см кв
2. 54*900= 48600 точек
3. 48600*3= 145 800 бит = 18225 байт