Ответ:
var
a,b,c,n,s: integer;
begin
readln(n);
if ((n>99) and (n<1000)) then
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
writeln('Сумма трех цифр равна ',s);
end else writeln('Введите трехзначное число!');
end.
Объяснение:
64*1024=65436 байт
65436*8=524288 бит
524288/4096=128 секунд
256*128=32768 бит
32768/8=4096 байт
4096/1024=4 Кб
с помощью интернета люди могут общаться друг с другом
Input x-1 y-5
a^2=x:y
Print a^2
Input x-2 y-5
d^2=x:y
Print d^2
Может быть неправильно!