DIM A(6) RANDOMIZE TIMER FOR I = 1 TO 6 A(I) = INT(RND * 20) - 10 IF A(I) > 0 THEN S = S + 1 PRINT A(I); " "; NEXT I PRINT PRINT "S="; S
Новый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(-10,10); if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Старый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(20)-10; if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Потому что соединение не идеально, оно прерывается, некоторые данные по пути теряются. Допустим, я хочу передать файл по интернету. Если файл небольшой, то велика вероятность, что он не пострадает. В противном случае можно потратить много времени на передачу части файла, после чего данные передадутся с ошибкой, которую мы обнаружим только после передачи всего файла. Передавая информацию пакетами же можно этого избежать, так как любая потеря данных будет сразу видна по плохому пакету. После этого можно эту ошибку сразу и обработать и, допустим запросить повтор предыдущего пакета или попытаться починить пакет, прибывший с ошибкой.
1) Это явно шифр замены. Мы знаем, что: А = Я, Н = С, Т = М, О = Р, М = Т, И = Ц, Х = Й, Л = У, Ь = Г, Е = Ъ, В = Э, Г = Ь, Й = Х. Этого достаточно, чтобы подставить буквы и получить НМЪПЯС = СТЕ*АН, очевидно, что это СТЕПАН. А если немного подумать, то можно догадаться, какой это шифр. Взяли алфавит и написали два раза - прямо и наоборот. Каждая буква из 1 алфавита заменяется на букву 2 алфавита. А = Я, Б = Ю, В = Э, Г = Ь, и так далее.
2) Про Виталия. Из 96 друзей 76 знают Павла и 56 знают Андрея. Значит, минимум 76+56-96 = 36 чел знают и Павла и Андрея. Про Павла. Из 162 друзей 96 знают Андрея и 76 знают Виталия. Минимум 96+76-162 = 10 знают и Андрея и Виталия. Про Андрея. Из 108 друзей 56 знают Виталия и 96 знают Павла. Минимум 56+96-108 = 44 знают и Виталия и Павла. Выбираем наибольшее из минимальных чисел. ответ: минимум 44 чел знакомы со всеми тремя парнями.
RANDOMIZE TIMER
FOR I = 1 TO 6
A(I) = INT(RND * 20) - 10
IF A(I) > 0 THEN S = S + 1
PRINT A(I); " ";
NEXT I
PRINT
PRINT "S="; S
Новый паскаль АВС
var
a:array[1..6]of integer;
i,s:integer;
begin
for i:=1 to 6 do
begin
a[i]:=random(-10,10);
if a[i]>0 then s:=s+1;
write(a[i],' ')
end;
writeln;
writeln('Количество положительных: ',s)
end.
Старый паскаль АВС
var
a:array[1..6]of integer;
i,s:integer;
begin
for i:=1 to 6 do
begin
a[i]:=random(20)-10;
if a[i]>0 then s:=s+1;
write(a[i],' ')
end;
writeln;
writeln('Количество положительных: ',s)
end.