<span>те которые храняться на цифровых носителях, которые состоят из разного набора чисел</span>
Var
a,b,c:integer;
x,y,z:string;
begin
writeln('Введите стороны треугольника');
readln(a,b,c);
x:='равнобедренный';
y:='равносторонний';
z:='разносторонний';
begin
if (c=b) and (a<>c) then
writeln('Треугольник',' ',x);
if (a=c) and (a<>b) then
writeln('Треугольник',' ',x);
if (a=b) and (a<>c) then
writeln('Треугольник',' ',x);
if (a=b) and (a=c) and (b=c) then
writeln('Треугольник',' ',y);
if (a<>b) and (a<>c) and (b<>c) then
writeln('Треугольник',' ',z);
end;
readln
<span>end.</span>
Вы можете уменьшить размер файлов и сэкономить пространство на диске с помощью сжатия рисунков в документе. Параметры сжатия уменьшают как размер файл, так и размеры рисунков, в зависимости от того, как планируется использовать изображение, например для просмотра на экране или в сообщении электронной почты. Сжать можно все рисунки в файле или только специально выделенные.
Если документ сохранен в более старом формате DOC, то параметр "Уменьшить размер файла" не будет доступен в меню "Файл". Чтобы использовать параметр "Уменьшить размер файла", сохраните документ в новом формате DOCX.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ArrRandom(15,-5,15); m.Println;
var a:=ReadInteger('a =');
m.Transform(t->t-a); m.Println
end.
<u>Пример</u>
-2 14 -3 2 -4 6 1 -3 9 1 -4 -2 14 9 8
a = 5
-7 9 -8 -3 -9 1 -4 -8 4 -4 -9 -7 9 4 3
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.