Вуз опубликовал в интернете на сайте vuz2020. ru список школ, с которыми он сотрудничает. имя файла, - id1046327620221206 от VikaYastremska 06.12.2022 11:28

Question

Информатика: Вуз опубликовал в интернете на сайте vuz2020. ru список школ, с которыми он сотрудничает. имя файла, содержащего список, - list, его расширение - xls. доступ к документам на сайте осуществляется по протоколу ftp. фрагменты адреса файла закодированы цифрами от 1 до 7. запишите в ответе последовательность этих цифр, кодирующую адрес указанного файла в сети интернет. 1) .ru 2) .xls 3) ftp 4) vuz2020 5) list 6) / 7) : / /​

VikaYastremska · Accepted Answer

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.

MOGZ ответил