for i:=1 to 10 do
begin
if c[i] in ['0'..'9'] then b[i]:=true
else b[i]:=false;
write(b[i],' ');
end;
Похожие записи/страницы:
- Дан массив из к целых чисел. Переменной t присвоить значение true, если в массиве нет нулевых элементов, и false…
- Дано две матрицы A [5,5], B [7,7]. Присвоить переменной PA значение 1, если элементы матрицы А симметричные…
- Описать функцию IsPower5(K) логического типа, возвращающую True, если целый параметр K (> 0) является степенью…
- По массиву А получить массив b, присвоив его k-му элементу значение true, если выполнено указанное ниже условие,…
- Доказать (путем перебора возможных значений), что для любых величин A, B, C типа Boolean следующие пары…
- Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих…
- Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из…
- Даны два числа x, y целого типа. Вывести True если среднеарифметическое является ли целым числом, в противном…