75 * 6 * 6 * 384 000 * x = 2025 000 * 1024 * 8
x = 2025 * 1024 * 8 / (75 * 36 * 384)
x = 16
1. а
2.в
3. б
4. а-5, б-45
5. а: 9, 11, 13, 15. б: 13, 10, 14, 11
6. СД-4, ДVD-2
7. 2 часа
8.
9. Значит она тоже любит математику
Var
S:real;
N,i:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
For i:= 1 to N do
S:=S+Sqr(i+N);
WriteLn('S = ',S);
End.
Вона віддала подрузі половину яблука?в ней залишилось 3.5, потім 3 яблука вона з*ла і в ней залишилось половинка яблука одного)
<span>program Metka;
\\ Даем имя метке
label M1;
</span>
<span><span>\\ Даем имя переменной х
</span>var x: shortint;
</span>
<span><span>\\ Начало программы
</span>begin
</span>
<span><span>\\ Выводим текст с просьбой ввода числа
</span>M1:writeln ('Введите x>100');
</span>
<span><span>\\ Запрос на ввод числа
</span>readln(x);
</span>
<span><span>\\ Если введенное число <=100 то идем на М1
</span>if x<=100 then GOTO M1
</span>
<span><span>\\ Конец программы
</span>end.</span>
Два недочета
1) нет точки с запятой после <span>writeln ('x>100')
2) Неверное условие - должно быть <=, т.к. при х=100 условие х>100 не должно выполняться.
</span>3) Желательно попросить ввести х>100 - слово Введите - не лишнее