1. Программа 10 раз прибавляет 9 к нулю =>
s = 9 * 10 = 90
Ответ: 90.
2. Программа 7 раз отнимает 7 от 50 =>
m = 50 - 7 * 7 = 1
Ответ: 1.
3. Программа прибавляет удвоенный индекс цикла (от 2 до 9) к нулю
s = 2 * (2 + 3 + 4 + 5 + 6 + 7 + 8 + 9) = 88
Ответ: 88.
4.
a = 30; b = 6
a = 30 / 2 * 6 = 15 * 6 = 90; b = 6
a > b = 90 > 6 = true =>
a = 90; c = 90 - 12 * 6 = 90 - 72 = 18
Ответ: 18.
5.
a = 5; c = 3
a = 5; c = 7 + 5 * 3 = 7 + 15 = 22
a = 22 / 2 * 5 = 11 * 5 = 55; c = 22
Ответ: 55.
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }
var L:array [1..9] of byte;
n,i:byte;
begin
N:=9;
{считываем с клавиатруры N чисел}
writeln('введите масссив');
for i:=1 to n do read(L[i]);
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(L[i]:7);{7 позиций под число}
end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.}
var K:array [1..22] of byte;
n,i:byte;
begin
N:=22;
randomize;
for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]}
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(K[i]:7);{7 позиций под число}
end.
Мощность алфавита n можно вычислить так:
n⁵ = 3125, следовательно n = корень 5 степени из 3125 = 5
Ответ: 5
1) Е:\ОЗЁРА\<span>Голомянка.bmp
2) </span>C:\новое\поколение\выбирает\чтение.doc
3) <span>примирение.doc</span>
Программа с исправленными СИНТАКСИЧЕСКИМИ ошибками:
program pr1;
var a, b, d: integer;
begin
readln(a);
readln(b);
d:=1;
while (d<>a) or (b mod 4=0) do begin
d:=d+1;
readln(b);
end;
writeln(d);
end.