Помогите решить пожалуйста, очень важно! ​Хотя бы помогите 1 решить,если второе не знаете

Question

Помогите решить пожалуйста, очень важно! ​Хотя бы помогите 1 решить,если второе не знаете

---

Comments

было бы это задание на каком-нибудь языке, я бы написал, а рисовать блок-схему лень

---

а 1 сможешь хотя бы сделать?

---

я могу сделать оба, блок-схемы рисовать лень

---

решение на каком-либо языке пойдет?

---

ага

Answer 1

1)var a:integer;

begin

writeln('Введите число:');

read(a);

a:=(a div 10) + (a mod 10);

writeln('Сумма цифр равна: ',a);

end.

2)var a:real;

begin

writeln('Введите объем информации в битах:');

read(a);

a:=a/8/1024/1024;

writeln('Объем информации ',a,' мегабайт');

end.