Задание 1: Создайте маркированный список. Хороший работник:
знает круг своих обязанностей;
выполняет работу качественно и в срок;
уважает труд своих коллег;
поддерживает со всеми ровные, деловые отношения.
Опорные понятия при изучении состава предложения:
подлежащее;
сказуемое;
определение;
дополнение;
обстоятельство.
Реклама должна быть:
понятной;
правдивой;
привлекательной;
запоминающейся.
Задание 2: Создайте многоуровневый список.
Редактор
Память
Внутренняя память
Внешняя память
Жесткий диск
Дискета
Флэш-память
Оптические диски
CD
DVD
Устройства ввода
Клавиатура
Мышь
Сканер
Графический планшет
Цифровая камера
Микрофон
Джойстик
Устройства вывода
Монитор
Жидкокристаллический монитор
Монитор на электронно-лучевой трубке
Принтер
Матричный принтер
Струйный принтер
Лазерный принтер
Акустические колонки
n, m, p, k, sum, x: integer;
s: string;
c, i: byte;
begin
write('Число: ');
read(n);
m := n;
k := 0;
while m <> 0 do
begin
p := m mod 10;
K := K + 1;
m := m div 10;
end;
Str(N, s);
c := 0;
for i := 1 to Length(s) do
if s[i] in ['0', '2', '4', '6', '8'] then
Inc(c);
x := n;
sum := 0;
while (x <> 0 ) do
begin
sum := sum + (x mod 10);
x := x div 10;
end;
writeln('Количество чисел: ', k);
writeln('Количество четных чисел: ', c);
writeln('Cумма чисел : ', sum);
end.