домен верхнего уровня для URL-адреса www.doc.example.com. будет .com
Только вчера это решала!!!!!!
Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.
Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.
Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.
Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит сказал" неправду "я абориген" а П передал он абориген.
В обоих случаях проводник абориген.
П- проводник
Ж - житель
Var A : array [1..2, 1..5] of integer;
i,j,pr:integer;
Begin
pr:=1;
Writeln('Ведите значения в массив');
for i:=1 to 2 do
for j:=1 to 5 do read(A[i,j]);
for i:=1 to 2 do
for j:=1 to 5 do
if ( (A[i,j] mod 2 = 0) and (A[i,j] mod 3 <> 0) ) then pr:=pr*A[i,j]; Writeln('Произведение = ',pr)
End.
16*50*64=51200 символов. 1 символ кодируется 16 битами.
51200*16 = 819200 бит переводим в байты
819200/8=102400 байт.
32*6240=199680 байт
199680+102400=302080 байт.
302080/1024=295 Кб. Вообще такой ответ.
ты наверное ошибся(лась)
Program p1;
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10);
writeln('Массив:');
for i:=1 to 10 do writeln('a[',i,']=',a[i]);
for i:=1 to 10 do a[i]:=a[i]+i;
writeln('Результат:');
for i:=1 to 10 do writeln('a[',i,']=',a[i]);
end.