1.Создайте в программе Word рекламный лист, где будут рекламироваться товары компьютерного магазина. Текст напишите на ваше усмотрение. Проявите творчество. 2.Вставьте в лист хотя бы одно изображение.
3.Вставьте в рекламный лист в качестве заголовка декоративную надпись.
можно выслать документом но не фото
очень
c: set of char;
i, n: integer;
s: string;
begin
c := [];
write('Введите текст: ');
readln(s);
n := 0;
for i := 1 to length(s) do
if not (s[i] in c) then
begin
include(c, s[i]);
n := n + 1
end;
writeln('Мощность алфавита, использованного для строки, равна ', n)
end.
Тестовый прогон:
Введите текст: В чащах юга жил бы фикус? Да, но фальшивый экземпляр...!
Мощность алфавита, использованного для строки, равна 35
Введите текст: Pi:=3.14159265; D:=Pi*sqr(D)/4;
Мощность алфавита, использованного для строки, равна 22