Таблица умножения- вид Зрительный, форма числовая. Рисунок, схема передвижения автобуса- вид зрительный, форма графическая. Гром, крик птицы, звонок телефона- вид звуковой, форма звуковая. Стихотворение в учебнике- вид зрительный, форма текстовая. Просмотр фрагмента из видео-фильма- вид зрительный, форма графическая
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
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
var
s : string;
flag : boolean;
i, c : integer;
begin
readln (s);
c := 0; flag := false;
for i := 1 to length (s) do
begin
if flag then
begin
if s[i] = ' ' then flag := false;
end
else
if s[i] <> ' ' then
begin
inc (c);
flag := true;
end;
begin
end;
end;
writeln (c);
end.
Это??????????????????????????:)