program massiv;
var
a:array[1..10] of integer;
i,b,c : integer;
begin
writeln ('posledovatelno vedity elementi massiva (10 chisel)');
for i:=1 to 10 do
readln(a[i]);
b:=a[1];
for i:=1 to 10 do
begin
if a[i]>b then
b:=a[i];
end;
c:=a[1];
for i:=1 to 10 do
begin
if a[i]<c then
c:=a[i];
end;
writeln('raznost mesdu naibolshim i naimenshim elementom massiva =',b-c);
readln;
end.
p.s если нужны пояснения то в личку
2)
var a,b,c,x,y,z,s:real;
begin
writeln('Введите стоимость 1 кг конфет, печенья и яблок:');
readln(a,b,c);
writeln('Введите вес конфет, печенья и яблок:');
readln(x,y,z);
s:=a*x+b*y+c*z;
writeln('Стоимость всей покупки = ',s);
end.
Пример:
Введите стоимость 1 кг конфет, печенья и яблок:
215 150 60
Введите вес конфет, печенья и яблок:
0.5 2 3.5
Стоимость всей покупки = 617.5
3)
var b,s:real;
begin
write('b = ');
readln(b);
s:=b*30/1.5;
writeln('s = ',s);
end.
Пример:
b = 2
s = 40
<u><em>Microsoft qBASIC:</em></u>
DIM n AS LONG
CLS
INPUT "Введите число ", n
INPUT "Введите цифру для поиска ", d
flag = 0
DO WHILE n > 0 AND flag = 0
IF d = n MOD 10 THEN
PRINT "Цифра в числе есть"
flag = 1
ELSE
n = n / 10
END IF
LOOP
IF flag = 0 THEN PRINT "Цифры в числе нет"
END
<em><u>Тестовое решение:</u></em>
Введите число 5374012
Введите цифру для поиска 1
Цифра в числе есть
1) 8 страниц * на 72 строки * 48 символов = 27648 символов - общий объем статьи.
2) информационный объем будет равен количеству символов умноженному на размер кодировки для символа, т.е. 27648 * 8 = 221184 бита.
3) Так как в вариантах ответа есть объем в Кбайтах и в Кбитах, то считать нужно и в байтах и в битах соответственно.
221184 бит - вариант №3 отпадает сразу
221184 бит / 1024 = 216 Кбит - наш ответ
221184 бит /8 = 27648 байт - отпадает вариант №2
221184 бит /8 = 27648 байт / 1024 = 27 Кбайт - отсекает вариант №1
Таким образом правильный ответ 4) 216 Кбит
400 мб картинки
16*100*80*2000=256 млн бит=32 млн байт=31250 кбайт=30 мбайт и 530 кбайт
итого
400 мб + 30 мб+530 кбайт = 430 мб и 530 кбайт
на флешку влезет