Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
18.
Должна быть операционная система windows, т.к. у нее и MS Office один производитель: microsoft
19. Для подключения системного блока в сеть разъем 1 (Блок питания)
20. Принтер
Я так понял, что это творческое задание. Так подойди к этому творчески :)
Я не совсем понял, какое тебе описание нужно, но я так понял, что информация, написанная на визитке.
Самыми крупными буквами принято печатать имя и фамилию владельца, а должность – немного меньшими. Лучше использовать максимум 3 разных цвета и размера шрифта.
Далее прежде всего соблюдать логичность текстовых конструкций. Информационная часть, например имена, номера телефонов, название компании, логотип и т.д., должна располагаться не ближе чем в 5 мм от края макета. Важно сделать так, чтобы фон или фоновый рисунок обязательно выходил за границу важных элементов на всю площадь макета визитки и покрывал все пространство. Также необходимо правильно выбирать стиль, цветовую гамму и схему расположения элементов.
Прикрепил пример.
Решение в приложенном файле.
Ответ 78
using System;
using System.Collections.Generic;
namespace App {
internal class Program {
private static void Main() {
Console.Write("Сколько элементов будем вводить? n = ");
var n = Convert.ToInt32(Console.ReadLine());
var a = new List<int>();
for (var i = 0; i < n; i++) {
Console.Write("Элемент номер {0} = ", i);
a.Add(Convert.ToInt32(Console.ReadLine()));
}
Console.WriteLine("Среднеарифметическое = {0}", Average(a));
Console.ReadKey();
}
public static double Average(List<int> a) {
var sum = 0.0;
foreach (var t in a) {
sum += t;
}
return sum / a.Count;
}
}
}