var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
1. Сообщение о том, что выбран 1 из 4 равновозможных вариантов содержит log2(4) = 2 бита информации (2^2 = 4).
2. Всего символов 150 * 40 * 60 = 360 000. Если считать, что каждый символ кодируется одним байтом, получится 360 000 байт = 351,6 Кбайт (1 Кбайт = 1024 байт)
3. На каждый символ отводится log2(64) = 6 бит, а объём документа 0,75 Кбайт = 0,75 * 1 024 байт = 0,75 * 8 * 1 024 бит = 6 144 бит. Поэтому общее количество символов 6 144 / 6 = 1024. На одну страницу приходится 1024 / 32 = 32 символа.
Якщо умова в циклі while одразу при першій перевірці приймає значення False, то тіло циклу не виконається жодного разу.