Помогите пожалуйста...Напечатать программу в паскале...Срочно...Завтра последний срок сдачи..
10-11 класс
|
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.
program Strok;
uses crt;
const number=['0','1','2','3','4','5','6','7','8','9'];
var A:array[1..10] of string;
i,j,k:integer;
s:string;
begin
{Ввод элементов массива}
for i:=1 to 10 do
begin
write('Введите ',i,' элемент массива: ');
readln(a[i])
end;
{проверка условий}
for i:=1 to 10 do {перебираем элементы массива}
begin
k:=0; {задаем триггер}
s:=a[i];
Другие вопросы из категории
Алик"Валя:"Первое". Эльдар:"Последнее".Известно, что трое сказали правду, а один солгал. Кто занял первое место? Кто солгал? Как вы это узнали?
"Смекалкин,уходя в школу,вшел из дому на 3 минут позже младшего брата. Расстояние до школы S метров .Смекалкин идет со скоростью V1 м/мин, а его брат -V2 м/мин .Догонит ли Смекалкин брата, прежде ,чем тот придет в школу?"
Читайте также
Пожалуйста...Срочно...Завтра крайний срок сдачи...Помогите...
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную