Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.
Var a:real;BeginWrite('Сторона равностороннего треугольника: ');ReadLn(a);WriteLn('P = ',a*3);WriteLn('S = ',a*a);End.
Program prog;
uses crt;
var a: array [1..10] of integer;
i,k: integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ', a[i]);
if a[i]>0 then inc(k);
end;
writeln;
write('K = ', k);
end.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
1)
8 Кбайт=8*2^13 бит =2^16 бит
256*256=2^8 * 2^8=2^16 пикслей
2^16 бит : 2^16 пикселей = 1 бит для кодирования одного пикселя
2^1 =2 цвета <--- ответ
2) 24*800*600=11 520 000 бит =
=1440000 байт =1406,25 Кбайт≈1407 Кбайт <---- ответ
3)
640*480*8=(5* 2^7) * (15*2^5) * (2^3) бит=75*2^15 бит=
=75*2^12 байт = 75*2^2 Кбайт =75*4 Кбайт = 300 Кбайт <--- ответ