1) Создать 1 программу в Qbasic. 2) Сохранить текст программы в текстовом редакторе ( Блокнот, Word) 3) назвать программу "Конь" 4) Создать Свой рисунок-программу в Qbasic 5) выполнить пункт 2. Ребята у меня сломан компьютер, а учитель задал это домашнее задание сделать. А я не могу ((( Может кто- нибудь сможет сделать и прислать мне на почту.
10 минут
Объяснение:
Обозначим за V — количество данных, q — сорость передачи, t — время передачи
Тогда V1=V2=12V=12⋅50=25 Мбайт
Переведём 25 Мбайт в Кбиты:
V1=V2=25Мбайт =25Мбайт⋅8бит=200Мбит=200⋅210 Кбит =50⋅4⋅210 Кбит=50⋅22⋅210 Кбит=50⋅212 Кбит
Время передачи определяется как t=t1+t2=V1q1+V2q2 , где q1=1024=210 Кбит/с, q2=10242=512=29 Кбит/с
Таким образом, t=50⋅212210+50⋅21229=50⋅22+50⋅23=50⋅4+50⋅8=200+400=600 c
Переведём полученный результат в минуты ( 1 мин = 60 с):
600с:60с=10 мин.
Без массива:
Program n_1;
var a, b, i, n: integer;
begin
a:=0; b:=0;
for i:=1 to 15 do begin
read(n);
if n mod 2 = 1 then a:=a+1
else b:=b+1;
end;
if a>b then writeln('Нечетных чисел больше, чем четных')
else writeln('Четных чисел больше, чем нечетных');
end.
С массивом:
Program n_1;
var a, b, i: integer; n: array [1..15] of integer;
begin
a:=0; b:=0;
for i:=1 to 15 do begin
read(n[i]);
if n[i] mod 2 = 1 then a:=a+1
else b:=b+1;
end;
if a>b then writeln('Нечетных чисел больше, чем четных')
else writeln('Четных чисел больше, чем нечетных');
end.
Но честно, не вижу смысла использовать массив.