var x,a,b,sum:integer;
begin
writeln ('Введите стоимость перчатки');
readln (x);
writeln ('Введите стоимость сумки');
readln (a);
writeln ('Введите стоимость ремня');
readln (b);
sum:=a+b+x;
if (sum>800) then writeln (sum-(sum/100*10));
if (sum<800) then writeln (sum);
end.
1.k=2^b
k-количество цветов
b-количество бит
1000*800*b=5600051,2
800000*b= 5600051,2
b(приблизительно)=7бит
k(приблизительно)=128цветов
2.
256=2^8
420*210*8=705 600бит(приблизительно)= 86Кбайт
Ответ:Процесор
Объяснение:Процесор имеет цастоту работи канали и количество ядер
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->i<=n-j-1?i+1:0);
a.Println(3)
end.
Пример
n= 13
1 1 1 1 1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2 2 2 2 0
3 3 3 3 3 3 3 3 3 3 3 0 0
4 4 4 4 4 4 4 4 4 4 0 0 0
5 5 5 5 5 5 5 5 5 0 0 0 0
6 6 6 6 6 6 6 6 0 0 0 0 0
7 7 7 7 7 7 7 0 0 0 0 0 0
8 8 8 8 8 8 0 0 0 0 0 0 0
9 9 9 9 9 0 0 0 0 0 0 0 0
10 10 10 10 0 0 0 0 0 0 0 0 0
11 11 11 0 0 0 0 0 0 0 0 0 0
12 12 0 0 0 0 0 0 0 0 0 0 0
13 0 0 0 0 0 0 0 0 0 0 0 0
P.S. Ненавижу того, кто поставил тут этот шрифт - все съезжает!
Uses CRT;
Const
Delay = 200; //Задержка в миллисекундах
Line = 22; //Номер строки, на которой будет текст
Text = 'Бегущая строка'; //Текст бегущей строки
Var
i: Integer;
s: String;
Begin
s := Text;
For i := 1 To 80 Do
Begin
GotoXY(1, Line);
TextColor(Random(14) + 1);
WriteLn(s);
s := ' ' + s;
Sleep(Delay);
End;
End.