Var a,b:integer;
begin
readln(a,b);
writeln(a,b);
end.
Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub
Смотрим на предназначение переменных L и M:
L - счетчик того, сколько раз выполняется условие цикла (while x > 0). Т.к. в конце программы L становится равным 2, значит условие цикла (while x > 0) выполняется 2 раза.
M, судя по условию (if M < x mod 10) - максимальная цифра числа x, т.к. x mod 10 - это остаток от деления числа x на десять.
В конце цикла while x приравнивается x div 10; кроме того, после 2 проходов цикла, x стало равным 0. Это дает нам право считать, что начальное число x было двузначным.
Т.к. в конце программы M становится равным 8, значит максимальная цифра в числе x - это 8.
Значит изначально число x могло быть равно:
18
28
38
48
58
68
78
80
81
82
83
84
85
86
87
88
<span>Т.к. требуется наибольшее, то выбираем <u>88</u>.</span>
1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.
Var n, i, a, sum: Integer;
Begin
sum := 0;
readln(n);
for i := 1 to n do begin
read(a);
if a mod 5=0 then sum := sum + a;
end;
writeln(sum);
End.
