Program kratno;
var a,b,sum: integer;
begin
readln (a,b);
if (a>=-9) And (b>=-9) and (a<=9) and (b<=9) then begin
sum:=a+b;
writeln (sum);
end
else
writeln ('Введенные числа не являются однозначными');
end.
2.
var x,y:real;
Begin
write('Vvedite chislo x: ');
readln(x);
writeln('y1= ',power(x,8));
writeln('y2= ',power(x,10));
writeln('y3= ',power(x,15));
writeln('y4= ',power(x,19));
readln;
End.
3.
var
a1,a2,b1,b2:integer; // a1,a2 - первая дробь, b1,b2 - вторая
Begin
write('Vvedite pervuy drob: ');
readln(a1,a2);
write('Vvedite vtoryy drob: ');
readln(b1,b2);
writeln('Chislitel= ',a1+b1);
writeln('Znamenatel= ',a2+b2);
readln;
End.
Это рекурсия, 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
Начало красный стой жёлтый готовся зелёный иди конец
Вот вычисления: 11*1024=11 264 байта *8 = 90112 бит
90112/11264 = 8 бит; мощность алфавита такова = 2^8=256 символов.
Ответ: в)