Const n=12;
var c : array[1..n] of integer;
i : integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
write('c[',i,']=');
readln(c[i]);
end;
writeln;
for i:=1 to n do write(c[i],' ');
end.
Пример:
<span>Исходный массив:
c[1]=15
c[2]=78
c[3]=20
c[4]=94
c[5]=37
c[6]=41
c[7]=72
c[8]=55
c[9]=86
c[10]=29
c[11]=89
c[12]=13
15 78 20 94 37 41 72 55 86 29 89 13</span>
Ответ: В)12*25, т.к. это довольно большое число что этой логарифмической линейки
13)Сестра-инженер
Жена- юрист
Сын- слесарь
Муж- учитель
Отец-экономист
14. Их последовательность : Нана(Н), Дана(Д), Лана(Л), Зана(З)
Т.к. Д сидит между Н и Л, то расстояние между НД и ЛД одинаковые
Расстояние между Н и З = Д и Л
Следовательно, они все сидят на равных расстояниях друг от друга, ДЛ и ЛЗ будет =2 и между Н и З =6
Ответ:
19263
19563
19863
Объяснение:
Число делится на 3, если сумма всех его цифр делится на 3.
1+9+6+3=19
3*i > 19 ⇒ i>19/3, i ∈ Z ⇒ 10 > i > 6 ⇒ i ∈ {7;8;9}
3*7-19=2
3*8-19=5
3*9-19=8
Const Alpha : set of char=['A'..'Z','А'..'П','Р'..'Я','a'..'z','а'..'п','р'..'я'];
var s:string;
i:integer;
wc:integer;
begin
writeln('Введите текст'); readln(s);
i:=1; wc:=0;
Repeat
while NOT(s[i] in Alpha) and (i<=length(s)) do inc(i);
if (i<=length(s)) then inc(wc);
while (s[i] in Alpha) and (i<=length(s)) do inc(i);
Until (i>length(s));
writeln('Количество слов в этом тексте = ',wc);
end.