program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
end.
1) Команда выделенная полужирным будет выполняться при двойном клике левой кнопкой мыши по той-же иконке
2) Если операционная система Windows то:
- Кликнуть на красный крестик в верхнем правом углу
- Кликнуть правой кнопкой мыши по шапке окна, нажать закрыть
- В списке открытых окон внизу, на панели с кнопкой "пуск", выбрать нужное окно, кликнуть правой кнопкой мыши и выбрать закрыть
- в этом же списке просто навести на окно, подождать появится маленькое окошечко с содержимым главного окна, на нем тоже есть красный крестик, нажать его
-Открыть диспетчер задач, найти в списке нужное окно выделить его и нажать кнопку "завершить процесс"
-Сочетание клавиш Alt+F4 закрывает окно
- комбинация клавиш Ctrl+W закрывает некоторые окна
Множество — это совокупность, набор, коллекция объектов.
Они злоумышленники. Их цель навредить человеку или какой нибудь компании,нанеся им материальные убытки в виде поломанной техники или обесценивания товара
Program n1;
<span>var a,b,c,s,p:real;
</span><span>begin
</span><span>readln(a);
</span><span>readln(b);
</span><span>readln(c);
</span><span>if (a+b>c) and (a+c>b) and (b+c>a) then
</span><span>begin
</span><span>p:=a+b+c;
</span><span>s:=sqrt(p*(p-a)*(p-b)*(p-c));
</span><span>writeln('периметр=',p);
</span><span>writeln('площадь=',s);
</span><span>end else
</span><span>writeln('треугольник не существует');
</span><span>end.</span>