Ребята помогите пожалуйста решить эти задачи))
10-11 класс
|
1)Задана строка. Удалить из нее два последних символа.
2) Найти в списке из 5 фамилий все фамилии, начинающиеся со слога «Ни».
3)Из заданного текста выбрать цифры и записать в массив N, а буквы- в массив B. Все остальные символы записать в массив S.
3)
type
char_array = array [1..1000] of char;
var
a, b, c: char_array;
s: string;
i := 0;
procedure add(c: char; var ca: char_array);
var
i := 0;
begin
repeat
i := i + 1;
until ord(ca[i]) = 0;
ca[i] := c;
// writeln('add - ',c,' ',i,' ',ca[i]);
end;
procedure show(ca: char_array);
var
i := 1;
begin
write(ca,':');
if ord(ca[i]) <> 0 then
repeat
write(ca[i], ' ');
i := i + 1;
until ord(ca[i]) = 0;
writeln;
end;
begin
read(s);
for i := 1 to length(s) do
if s[i] in ['0'..'9'] then
add(s[i], a)
else if (s[i] in ['A'..'z']) or (s[i] in ['А'..'я']) then
add(s[i], b)
else
add(s[i], c);
show(a);
show(b);
show(c);
end.
2) как выглядит список и откуда он берется?
Другие вопросы из категории
S=1+1/2+1/3+1/4+...+1/N
Число N вводится с клавиатуры.
Протестировать алгоритм для N=1,N=2,N=4,N=6.
Читайте также
1000
3)1001 1000
4)1011 110
5)1100 110
6)1100 111
7)1011 111
8)1011 10
9)1001 10
10)1001 11
11)1010 11
12)1010 100
13)111 100
14)111 10
15)101 10
16)101 11
17)110 11
18)110 1001
19)111 1001
20)111 1000
21)10 1000
22)10 1001
23)11 1001
24)11 110
25)100 101
Или подскажите как решать хотя бы:))Заранее спасибо.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
Спасибо заранее :)