Смотря на кого ты будешь учиться/учишься.
В одном килобайте 1024 байтов- 1/2 килобайта-512 байтов, в 1 байте 8 битов. 512*8=4096 бит
32*1=32. 32 бит в этих словах.
Var a, b, c:real;
begin
writeln('Введите значение гипотенузы и катета:');
read(c, a);
b := sqrt(c*c - a*a);
write(b);
end;
Алг а1
нач
вещ первое, второе
ввод первое, второе
вывод первое/второе
кон
<em><u>Тестовое решение:</u></em>
>> 01:12:23 - Новая программа* - Выполнение начато
16.5 3
5.5
>> 01:12:34 - Новая программа* - Выполнение завершено
алг а2
нач
цел число1, число2, число3, произведение
ввод число1, число2, число3
произведение:= число1*число2*число3
если произведение <50 то
вывод 10*число1,", ",10*число2,", ",10*число3
иначе вывод произведение
все
кон
Тестовое решение:
>> 01:18:48 - Новая программа* - Выполнение начато
4 2 3
40, 20, 30
>> 01:18:59 - Новая программа* - Выполнение завершено
>> 01:20:19 - Новая программа* - Выполнение начато
5 6 7
210
>> 01:20:23 - Новая программа* - Выполнение завершено