Var
n,max:real;
begin
max:=-maxint;
writeln('Вводите числа');
repeat
repeat
readln(n);
if (n<>round(n)) then writeln('Введено не целое!');
until (n=round(n));
if n>max then max:=n;
until n=0;
writeln('Максимум: ',max);
end.
_______________________
var
n1,m1:real;
n,m,c,result,ost:integer;
begin
ost:=1;
writeln('Введите 2 числа');
repeat
readln(n1,m1);
if (n1<>round(n1))or(m1<>round(m1)) then writeln('Введено не целое!');
until (n1=round(n1))and(m1=round(m1));
n:=round(n1);
m:=round(m1);
while ost<>0 do
begin
if m>n then
begin
c:=m;
m:=n;
n:=c;
end;
ost:= n mod m;
result:=m;
n:=ost;
end;
writeln('НОД: ',m);
end.
<span>Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).</span>
<span> ОТВЕТ:</span>
<span>var</span> a<span>,</span>b<span>,</span>c<span>,</span>k<span>:</span><span>integer</span>;
Ответ:
Возможные значения: наименьшее 16 и наибольшее 31
Объяснение:
В двоичной системе счисления наименьшее пятизначное число 10000 и наибольшее пятизначное число 11111. Осталось перевести эти числа в десятичную систему счисления.
10000₂=1·2⁴+0+0+0+0=16₁₀
11111₂=1·2⁴+1·2³+1·2²+1·2¹+1·2⁰=16+8+4+2+1=31₁₀
При использовании 65536 цветов для хранения одной точки изображения необходимо log(2)65536 = 16 бит = 2 байта.
Объем переданного файла = 14400*3*60 бит = 14400*3*60/8 байт = 324 000 байт
Количество точек изображения = 324 000 / 2 = 162 000
Размер изображения может быть, например, 810*200 или 400*405
Дуже просто 5+6-7+10=14 грибів . А блок схема :
малюєш овал в ньому пиши початок, далі прямокутник, а в ньому 5, далі знов прямок, а вньому +6 і т.д