Program up1;
var a,w,e,q,r:integer;
begin
write('введите трехзначное число');
read(a);
q:=(a mod 10)*100;
w:=((a mod 10) mod 10)*10;
e:=a div 100;
r:=q+w+e;
write(r);
end.
While (a < -1) and (a > -1) do
Тело этого цикла никогда не будет выполнено даже один раз.
Условие требует, чтобы значение a было ОДНОВРЕМЕННО меньше -1 И БОЛЬШЕ -1.
Задача a
Общий вес текста/сообщения:
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 2 * 32 * 64 шт = 4096 шт
i = 24 бит
Вес текста I = K * i = 4096 * 24 бит = 98304.0 бит
98304.0 бит = 12288.0 байт = 12.0 Кбайт
Задача b
16384.0 бит = 2048.0 байт = 2.0 Кбайт
+ закрашена
- не закрашена
+++
+-+
+++ <span />
<span>var a,b,c:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
write('Среднее арифметическое=',(a+4*a+16*a) / :0:2);
end<span>.</span></span>