Інформаці́йний ви́бух<span> — значне збільшення обсягів </span>інформації<span>.</span>
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
Я так понял, что это творческое задание. Так подойди к этому творчески :)
Я не совсем понял, какое тебе описание нужно, но я так понял, что информация, написанная на визитке.
Самыми крупными буквами принято печатать имя и фамилию владельца, а должность – немного меньшими. Лучше использовать максимум 3 разных цвета и размера шрифта.
Далее прежде всего соблюдать логичность текстовых конструкций. Информационная часть, например имена, номера телефонов, название компании, логотип и т.д., должна располагаться не ближе чем в 5 мм от края макета. Важно сделать так, чтобы фон или фоновый рисунок обязательно выходил за границу важных элементов на всю площадь макета визитки и покрывал все пространство. Также необходимо правильно выбирать стиль, цветовую гамму и схему расположения элементов.
Прикрепил пример.
Var n,k:integer;
begin
writeln('n=',n);readln(n);
k:=0;
while n<>0 do
begin
if n mod 10 mod 2 =1 then k:=k+1;
n:=n div 10;
end;
writeln('k=',k);
<span>end.</span>