84 : 3 = 28
28 -1 = 27
27 : 3= 9
9 : 3 = 3
3-1=2
Ответ: 21121
program summa;
var a,b,c,d,s:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
s:=a+b+c+d;
write('Сумма равна: ',s);
end.
Inc(A,D) - Данная процедура увеличивает содержимое переменной «A» на значение переменной «D».
Примерно так выглядит граф, перестройте его под ваши пункты а) и б)
Это не сложно
Const
n = 2016;
var
a: array[1..n] of integer;
i, m, k: integer;
begin
randomize;
m := 1;
for i := 1 to n do
begin
a[i] := random(1000);
m := m * a[i] mod 2;
// write(a[i], ' ');
end;
k := -1;
for i := 1 to n do
if (a[i] mod 2 = m) and (a[i] > k) then
k := a[i];
writeln(k);
end.
ответ примерно будет одинаковым, так как очень много цифр в массиве