Program evm;
var
a:integer;
begin
Writeln('Сколько вам лет? ');
readln(a);
if a<18 then writeln('Вы ребёнок');
if (a>18) and (a<35) then writeln('Вы молоды');
If (a>35) and (a<100) then writeln('Вы взрослый');
readln;
<span>end.</span>
1. А2=15/5=3
В2=15-3*5=0
А3=3+5^2=28
В3-0/5+28=28
Ответ: А3=28, В3=28;
2. а) А2=3+6=9
А3=5+1=6
С1=3
С2=(9+6+5+4)/4=24/4=6
С3=3+6=9
Ответ: С1=3, С2=6, С3=9
б) А1=2+3=5
А2=2
А3=7+1=8
С1=5+2=7
С2=8
С3=(7+8)/2=7,5
Ответ: С1=7, С2=8, С3=7,5;
3. В прикрепленных.
4. 1) 25-18=7 - средняя стрельба
2) 25-15=10 - средняя скорость
3) 7-5=2 - средняя стрельба, высокая скорость
4) 10-5=5 - средняя скорость, высокая стрельба
5) 25-5-2-5=13 - высокая скорость, высокая стрельба.
Ответ: 13.
Форумула нахождения объема файла по скорости и времени:
I = v*t, из этого следует что I = 2400000*1 = 2400000 бит.
После нахождения массы в битах, находим ее в магабайтах:
I = ((2400000/8)/1024)/1024 = ~0,29 МБ
Ответ: ~0,29 МБ
Добрый день!
И так, начнём..
*Вопрос: <span><span>Изменится ли строка ST, над которой произведут операцию COPY? Почему?
</span>*Ответ: <u>Изменится</u>, т.к. при использовании функции <span>COPY </span>необходимо указывать в какой строке копировать, с какой позиции, и количество символов, которое будет копировано.
**Вопрос: </span><span>Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)?
**Ответ: Переменная k будет равна <u>17</u>, т.к. функция LENGTH определяет длину строки, считая каждый пробел, запятую, буквы и т.д.
***Вопрос: </span><span>Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)?
***Ответ: Переменная tx будет равна слову <u>лес</u>. </span><span>Функция </span>DELETE<span> удаляет часть символов из строки. В нашем случае удаление происходит в строке tx, с позиции 4, удаляет 3 символа.
****Вопрос: </span><span>Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)?
****Ответ: Переменная k будет равна <u>1</u>. Т.к. функция POS определяет первое вхождение заданного символа.
Дополненная программа:
program zadacha1;
var t: string; b: string[1]; n, k, i: integer;
begin
writeln('Введите текст: ');
<em>readln(t);</em>
n := length(t);
k := 0;
for i := 1 to n do begin
b := copy(t, i, 1);
<em>if (t[i] = 'a') or (t[i] = 'A') or (t[i] = 'а') or (t[i] = 'А')</em> then k := k + 1;
end;
writeln ('k= ', k);
<span>end.
</span></span><span><span>
*<em>Курсивом и выделением обозначены дополнения в программе.</em></span></span>
//<em>ax</em><em> + </em><em>b</em><em> = 0,</em><span> где </span><em>а и b</em><span> – любые числа.
var a,b,x:real; //инициализирует переменные a,b и x типа real, с плавающей точкой
begin; //начало программы
readln(a); //ввод a
readln(b); //ввод b
x:=-b/a; //находим корень
writeln(x); //выводим корень
end. //конец программы</span>