Vara,b,c: integer;beginreadln(a, b, c);write(a+b/2*sqr(c));end.
512*16=8192(бит)
8192/8=1024(байт)
1024/1024=1(Кбайт)
Ответ:1 Кбайт
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>
Это рекурсия, F генерирует число (n+1) и (n+2), если n< 5
При вводе n =1 программа выводит на экран числа, равные (п+1) и (n+2 ), если раннее генерированное n<5 Вот эти числа:
1
2
3
4
5
6
5
4
5
6
3
4
5
6
5