<h2><u>7. </u></h2>
program raf105;
var
num,max: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
max:= -99999;
repeat
readln(num);
if num > max then max:= num;
until num = 0;
writeln('Вывод: ',max);
end.
<h2><u>8. </u></h2>
program raf105;
var
num,min: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
min:= 99999;
repeat
readln(num);
if (num < min) and (num <> 0) then min:= num;
until num = 0;
writeln('Вывод: ',min);
end.
<h2><u>9. </u></h2>
program raf105;
var
num,count,max: integer;
begin
write('Введите количество чисел: ');
readln(count);
writeln('Вводите числа по очереди');
max:= -99999;
for var i:=1 to count do
begin
readln(num);
if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;
end;
if max <> -99999 then writeln('Вывод: ',max)
else writeln('Таких чисел нет.');
end.
<h2><u> </u></h2><h3>PascalABC</h3>
1 Гбайт - это два в десятой степени Мбайт. ! Мбайт - это это два в десятой степени Кбайт. Следовательно, 1 Гбайт - это два в двадцатой степени Кбайт.
Ответ: 0.5 Гбайт.
<em><u>Примечание.</u></em> Ответ получен с учетом того, что фраза из вопроса "2 в 19 степени 19 Кбайт" лишена смысла и должна пониматься, как "2 в 19 степени Кбайт".
256-цвет ето 8бит
2-цвета ето 1бит
8-1=7бит убрали
7*1024=7168байта
7168*8=57344бита
х*8-х*1=57344 (Где х-количество пикселей)
57344/7=х
х=8192 пикселей
8192*8=65536
65536/8/1024=8Кб
Program sber;
const
n = 4;
k = 0.06;
var
fv, x: real;
begin
write('x = ');
readln(x);
fv := x * exp(ln(1 + k) * n);
writeln('Сумма: ', fv);
end.
var x,y:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<0 then
begin
y:=x/2;
writeln('y = ',y);
end
else
begin
if x>=0 then
y:=sqrt(3+x);
writeln('y = ',y);
end;
end.