Program chisla;
var a:integer;
begin
Write('Введите четырехзначное число: ');
read(a);
if (a<=9999) and (a>=1000) then
begin
Writeln('Вторая цифра ',a div 100 mod 10);
end
else
Writeln('Это не четырехзначное число');
end.
Ответ: только что был такой же вопрос
1. 4.5 0
2. 9 2
3. 15 5
15 13
Объяснение:
1.
x = 4.5
y = 0 (7/9 целочисленное деление)
2. целочисленное деление, затем остаток
b = 9
c = 2
3.
x = 15
y = 5
x = 15
y = 13
22кбит=22528 байт
43 бит=5.375 байт
22528+5.375=22533.375
вроде бы так