<span>25 div 3= 8.
3*8=24.
8- результат </span>целочисленного деления.
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Если символ кодируется одним байтом, то объем сообщения = 256*1 = 256 байт.
Если символ кодируется двумя байтами, то объем сообщения = 256*2 = 512 байт.
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
Ответ:
30
Объяснение:
первое число - 30 в десятичной системе счисления
второе - 36
третье - 33