Если должен сказать твой персонаж, то там в действиях есть "Сказать", а если просто на экран там вроде-бы через рисунок можно
Ответ:
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.
Господи грамотей не мима а мимо!
Так вот алгоритм последовательность действий заданный человеком, программой (не важно кем)
Скорее всего так
1а
2д
3в
4б
5б
6б
7-
8а
9 наверное 2. не точные варианты ответов
10б
11 3
12 4
13 2
14 1
15 1
16 4
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
ч, y: ЦЕЛ;
УКАЗ
ч := Приём.Число();
y := (ч ДЕЛИТЬ 100 ОСТАТОК 10) * 1000 +
(ч ДЕЛИТЬ 1000) * 100 +
(ч ОСТАТОК 10) * 10 +
(ч ДЕЛИТЬ 10 ОСТАТОК 10);
Вывод.ЧЦел("^%d", y, 0, 0, 0)
КОН Задание.