Var a: integer;
begin
writeln('Введите год рождения'); readln(a);
case a mod 12 of
0: writeln('Вы родились в год Обезьяны.');
1: writeln('Вы родились в год Петуха.');
2: writeln('Вы родились в год Собаки.');
3: writeln('Вы родились в год Свиньи.');
4: writeln('Вы родились в год Крысы.');
5: writeln('Вы родились в год Быка.');
6: writeln('Вы родились в год Тигра.');
7: writeln('Вы родились в год Кролика.');
8: writeln('Вы родились в год Дракона.');
9: writeln('Вы родились в год Змеи.');
10: writeln('Вы родились в год Лошади.');
11: writeln('Вы родились в год Козы.');
end;
readln
<span>end.</span>
Есть три основных типа принтеров: матричный, струйный и лазерный. Я часто распечатываю тексты на лазерном принтере, так как он печатает тише и быстрее, чем другие типы.
Ну скорее всего 77 так как мальчики должны были всех поздравить и было 77 пожатей
var
s1, s2: string;
i: integer;
begin
s2:= ''; //Присваиваем строке начальное пустое значение
writeln('Введите слово s1');
readln(s1);
for i:= 1 to length(s1) do //length(s1) - длина строки s1
if i mod 2 = 0 then s2:= s2 + s1[i];
writeln('Полученное слово: ', s2);
end.