Var
k: integer;
a, s: real;
begin
write('Начальная стоимость: ');
readln(a);
{write('Число проданных газет: ');
readln(k);}
k := 200;
if k <= 50 then s := k * a
else
begin
s := 50 * a;
s := s + (k - 50) * a * 1.2;
end;
writeln('Выручка составила ', s, ' руб.');
end.
<span>Рентгеновские лучи
</span><span>Телевидение
</span>
<span>Мобильный телефон
</span>
Компьютер
Интернет
Электромобиль
Игровые приставки
Самолёт и автопилот
1) 1,5 Мбайта=1,5*2^23 бита =3*2^22 бита
2) 2048*1024=2^11*2^10=2^21 пикселей
3) 3*2^22 : 2^21 =3*2 =6 бит один пиксель
4) 2^6 =64 цвета в палитре
ответ 6 пикселей; 64 цвета
Var
mj,max,i,j,m,n:integer;
mas:array[1..999,1..999] of integer;
begin
randomize;
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(mas[i,j]);
for i:=1 to m do
begin
mj:=-maxint;
max:=-maxint;
for j:=1 to n do
if mas[i,j] > max then
begin
mj:=j;
max:=mas[i,j];
end;
writeln('[',i,';',mj,'] = ',max);
end;
end.
var a,b,c,max,min,s: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
s:=(a+b+c)-(max+min);
writeln(s);
end.
Пример:
5 2 9
5