V = k * i ( где V - объем файла, k - количество пикселей, i - глубина цвета)
2 в степени i = N ( глубина кодирования (количество бит, занимаемых 1 пикселем), N - количество цветов (палитра)) ==>
2 в степени i = 16
i = 4
v = 2048 * 1024 * 4 = 8 388 608 бит = 1 048 576 байт = 1024 КБ = 1 МБ
Program outr;
var a,b,c:real;
begin
readln(a,b,c);
writeln('a=',a,' b=',b,' c=',c);
if (a+c>b) and (a+b>c) and (c+b>a) then
begin
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln('треугольник прямоугольный');
end else
writeln('треугольник построить невозможно');
<span>end.</span>
Компьютер<span> – </span>это<span> универсальное </span>электронное<span> программно- управляемое </span>устройство<span>, </span>предназначенное для<span> автоматической обработки, хранения и </span><span>передачи информации. </span>
Var i:integer ;begin writeln ('загадайте число ,умножте на 5,прибавте 8,умножте на 2 и введите что получилось '); readln(i);writeln (i div 10); 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