Да конечно нельзя в компе нет такого можешь просто написать 1/4 но вот такой кнопки там нет
<em><u>Программа шифровки:</u></em>
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
t = t + MID$(s, i, 1)
t = t + MID$(s10, INT(10 * RND + 1), 1)
t = t + MID$(s20, INT(20 * RND + 1), 1)
t = t + MID$(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END
<em><u>Программа дешифровки:</u></em>
DIM s AS STRING, t AS STRING, <span>i AS INTEGER</span>
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
t = t + MID$(s, i, 1)
NEXT i
PRINT t
END
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
Print('Количество неудовлетворительных');
a.Count(p -> p < 5).Println;
if a.Any(p -> p = 10) then
Println('YES')
else
Println('NO')
end.
<span>Когда тебе нужно к этим объектам применять одно и тоже действие.Если хочешь объединить в массив.</span>