Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
Вот, это правильно)
Удачиииии
Это на компе надо делать
Эт училка еб*нутая ,передай ей
3+2=5
Ответ:5.
...........,,,,,,,,
1) Дано:
N=128
K=2000
Найти:
I
Решение:
N=2^i
128=2^7
I=Ki
I=2000*7
I=14000 бит = 1750 байт
Ответ: 1750 байт