Var a,b,c: integer; begin write('введите первую сторону треугольника '); readln(a); write('введите вторую сторону треугольника '); readln(b); write('введите третью сторону треугольника '); readln(c); if (a<0) or (a<0) or (b<0) then write('такого треугольника не существует ') else if (a<>b) and (b<>c) then write('треугольник разносторонний') else if (a=b) and (b=c) then write('треугольник равносторонний') else if (a=b) or (a=c) or (b=c) then write('треугольник равнобедренный'); writeln; end.
Переносные, компактные и весьма емкие по памяти, по-сравнению с дискетами, мобильные носители информации, в народе называемые просто флешками, получили очень широкой распространение. В настоящее время флеш-носители используются в коммуникаторах, в фотоаппаратах, в некоторых моделях сотовых телефонах и просто как устройство, предназначенное для хранения и переноса информации. Вслед за широким применением флеш-устройств участились и случаи потери информации на них. Связано это либо с поломкой самого устройства, либо с нарушением файловой структуры, либо по вине самого пользователя. Вне зависимости от типа (формата) устройства: CompactFlash, SD, MMC, MemoryStick, USB-Flash для их производства используются микросхемы памяти, построенные по NAND-технологии (форм-фактор TSOP, WSOP, BGA), что позволяет конструктивно работать непосредственно с самой микросхемой памяти через специальное устройства с дальнейшей расшифровкой полученных результатов. Таким образом, необходимое и достаточное условие для восстановления информации с флеш-носителей – сохранение целостности самой микросхемы памяти и её содержимого.
a,b,c: integer;
begin
write('введите первую сторону треугольника ');
readln(a);
write('введите вторую сторону треугольника ');
readln(b);
write('введите третью сторону треугольника ');
readln(c);
if (a<0) or (a<0) or (b<0) then write('такого треугольника не существует ') else
if (a<>b) and (b<>c) then write('треугольник разносторонний') else
if (a=b) and (b=c) then write('треугольник равносторонний') else
if (a=b) or (a=c) or (b=c) then write('треугольник равнобедренный');
writeln;
end.