Обозначим искомое количество килобайт как Х.
100 Кб:1536 бит = Х Кб:768 бит.
Х = (100*768):1536 = 50.
Ответ: 50 Кб.
Примерно так будет выглядеть блок-схема, результат работы программы и сама программа:
Program Age;
uses crt;
var A, M, P, Ma, Pa: integer;
begin
write('Введите Ваш возраст: ');
read(A);
write('Введите возраст мамы: ');
read(M);
write('Введите возраст папы: ');
read(P);
Pa := P - A;
Ma := M - A;
writeln('Возраст мамы, когда Вы родились: ', Ma);
writeln('Возраст папы, когда Вы родились: ', Pa);
end.
1: 1
2: 1
3: 1 + 1 = 2
4: 2 + 1 = 3
5: 3 + 2 = 5
6: 5 + 3 = 8
7: 8 + 5 = 13
8: 13 + 8 = 21
9: 21 + 13 = 34
10: 34 + 21 = 55
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, ......
Последовательность чисел Фибоначчи / Fibonacci numbers
Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.