14 млн. Байтов 112млн. Битов или 14 тыс. Килобитов
Первое 3)3 потому что 3<4 3>1 и не равно 2
Второе 4)4 потому что 4>1;2 и не равно 3
program 1qq;
var c,b,n,a:integer;
begin
readln(n);
readn(a);
b:=0;
c:=a;
while b<n do begin
b:=b+1;
if a mod 19 = 0 and a mod 23 = 0 then writeln(a);
a:=a+1;
end;
writeln('KONEC');
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
Упрощение выражений - в прилагаемом файле