1).1 символ - 1 байт.
В 1 кбайте - 1024 байт или 2^10 байт.
Переведем 22,5кб в байты: 22,5 * 2^10 = 23 040 или же 22,5 * 1024 = 23 040.
Теперь 23 040/180 = 128 .
2). Вторую задачу не знаю как решить, либо вы условие не правильно написали. Там вроде ещё должно быть написанно сколько 1 символ занимает бит.
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
Не очень хорошо сформулирован вопрос.Эта программа генерирует 3 числа от -9 до 9 и выводит сначала все числа,затем наибольшее и наименьшее.
var a,b,c : Integer;
begin
Randomize;
a:=random(19)-9;
b:=random(19)-9;
c:=random(19)-9;
Writeln(a+' '+b+' '+c);
if((a>b)and(a>c)) then
Writeln('Наибольшее '+a)
else if(b>c) then
Writeln('Наибольшее '+b)
else
Writeln('Наибольшее '+c);
if((a<b)and(a<c)) then
Writeln('Наименьшее '+a)
else if(b<c) then
Writeln('Наименьшее '+b)
else
Writeln('Наименьшее '+c);
end.
<em>MS DOS QBasic 1.0</em>
CLS
INPUT "a,b,n "; a, b, n
s = n * (a * 100 + b)
PRINT s \ 100; "rub"; s MOD 100; "kop"
<u>Пример</u>
a,b,n ? 18,45,16
295 rub 20 kop