Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
По сути нужно найти набор букв "child" и добавить сзади "ren".
1) Начало
2) Ввод числа n и массива s(n)
2.1) k = 0
3) Цикл по i от 1 до n-4
3.1) Если (s(i)="c") и (s(i+1)="h") и (s(i+2)="i") и (s(i+3)="l") и (s(i+4)="d"), то
3.1.1) k = k + 3
3.1.2) Переопределяем размер массива на s(n+k)
3.1.3) Цикл по j от i+5 до n
// Отодвигаем на 3 знака все буквы после s(i+4)="d"
3.1.3.1) s(j+3) = s(j)
3.1.3.2) Конец цикла по j
3.1.4) s(i+5)="r"; s(i+6)="e"; s(i+7)="n"
3.1.5) Конец Если
3.2) Конец цикла по i
4) Вывод массива s(n+k)
5) Конец
<span>Random это функция</span><span> возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:</span>
A: = Random(101)-50; {Числа от -50 до 50}
B: = Random(101)-200; {от -100 до 100}
<span>А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!</span>
Program n1;
var a,b: real;
begin
readln(a,b);
writeln('S=',a*b);
write('P=',(a+b)*2);
end.