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.
Для для хранения информации с помощью 200-символьного алфавита необходимо 8 бит на 1 символ = 1 байт. Осталось перемножить количество символов на странице на количество строк и на количество страниц:
48*96*1280 = 5 898 240 байт = 5 760 Кбайт
Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.
Под буквой Б, я это вчера сделал