Program n1;
label t;
var a,b,c: integer;
begin
readln(a,b,c);
if a<>b then if abs(a)=abs(b) then goto t;
if a<>c then if abs(a)=abs(c) then goto t;
if b<>c then if abs(b)=abs(c) then goto t;
writeln('нет');
t:
writeln('есть');
end.
CLSINPUT NDIM A(N), B(N)FOR i = 1 TO N A(i) = INT(RND * 100)NEXT imin = A(1)FOR i = 2 TO N IF A(i) < min THEN min = A(i)NEXT iFOR i = 1 TO N A(i) = min * A(i)NEXT iFOR i = 1 TO N B(i) = INT(RND * 100)NEXT imin = B(1)FOR i = 2 TO N IF B(i) < min THEN min = B(i)NEXT iFOR i = 1 TO N B(i) = min * B(i)NEXT iFOR i = 1 TO N PRINT A(i);NEXT iPRINTFOR i = 1 TO N PRINT B(i);NEXT i
import java.util.Random;
import java.lang.Math;
import java.util.function.Function;
public class ot_1_do_100 {
public static void main(String[] args) {
Random r = new Random();
int s =0; int k;
int[] Array;
Array = new int[15];
for (k = 1; k <= 15; k++) {
int n = r.nextInt(15); //Диапозон рандома (от 0 до 14) + присвоение
s += n;
System.out.print(n + " "); //Вывод рандомных чисел
}
System.out.print(s); // Сумма всех чисел
}
}
Объяснение: Это язык Java
Var k,i:integer;
begin
write ('Введите количество повторений: ');
readln (k);
for i:=1 to k do
writeln ('ПРИВЕТ!!!')
end.
512000*6=8192000 бит
8192000/8=1024000 байт
1024000/1024=1000 Килобайт