Название документа
строка меню
Строка формул
Рабочее поле
Бегунки
Строка состояния
Заголовки столбцов
Заголовка строк
Листы
Адрес ячейки
Общие элементы: Название документа, Строка меню, Строка состояния, Рабочее поле, бегунки
Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.
Var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if i mod 2 =0 then write(s[i],s[i])
else write(s[i]);
end.
1. Для кодирования одного из 64 цветов требуется log(2)64 = 6 бит (2^6=64).
Объем информации в своде законов:
512*256*6 бит = 512*256*6 / 8 байт = 512*256*6 / (8*1024) Кбайт = 96 Кбайт
2. 128 Кбайт = 128*1024 байт = 128*1024*8 бит
Память для одного пикселя: 128*1024*8 / (512*256) бит = 8 бит
Количество цветов = 2^8 = 256
Var
x, y, z, a, b: real;
begin
readln(x, y, z);
a := x * x * x * sqr(Tan(sqr(x + y))) + z / sqrt(x + z);
b := (y * x * x - z) / (exp(z * x) - 1);
writeln('a=', a);
writeln('b=', b);
end.