DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P

0 0

3 года назад

Какие из следующих описаний функций не содержат ошибок? Выберите один или несколько ответов. 1)function test:real; 2)function ta

николай онв

1)function test:real; - ВЕРНО
2)function tan (angle:real):real; - ВЕРНО
3)function sign( a, b:integer); - НЕВЕРНО, не определен тип возвращаемого значения
4)function sign(write: integer): integer - НЕВЕРНО, в конце нет точки с запятой

Программа напечатает:
12
Объяснение:
Процедура Exchange задумана, как обменивающая местами значения своих параметров. Но из-за отсутствия в заголовке var, она не вернет в вызвавшую программу новые значения, поэтому х и у останутся без изменения. Так они и будут выведены.

0 0

4 года назад

Прочитать ещё 2 ответа