Var a,b,c : real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a)
then writeln('Треугольник построить можно')
else writeln('Треугольник построить нельзя');
end.
Пример 1:
a = 3
b = 4
c = 5
Треугольник построить можно
Пример 2:
a = 3
b = 5
c = 9
Треугольник построить нельзя
256-цвет ето 8бит
2-цвета ето 1бит
8-1=7бит убрали
7*1024=7168байта
7168*8=57344бита
х*8-х*1=57344 (Где х-количество пикселей)
57344/7=х
х=8192 пикселей
8192*8=65536
65536/8/1024=8Кб
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
т.к. неравенство 2 * 3 < 0 не выполняется, то значение этого логического выражения 0