// PascalABC.NET
// Даны катеты прямоугольного треугольника.
// Найти его гипотенузу и периметр.
var
a, b : real;
begin
write('Введите длину катета а: ');
readln(a);
write('Введите длину катета b: ');
readln(b);
var c := sqrt( sqr(a) + sqr(b) );
var p := a + b + c;
writeln('Длина гипотенузы равна ', c);
writeln('Периметр треугольника равен ', p)
end.
1. функциональные клавиши: F1, F2, F3 .... F12
используется для быстрого выполнения сложных операция в компьютере
2. Основная алфавитно-цифровая клавиатура
3. Дополнительная цифровая клавиатура расположена справа на клавиатуре и используется для ввода числовой информации или управления движения курсора на экране
4. Клавиши управления курсором - (курсор это мигающая черточка на экране, которая показывает место, где появится новый символ, введенный с клавиатуры) - предназначены для передвижения курсора по экрану
< Enter > - клавиша ввода, ее нажатие означает, что вы закончили какое-то дейтсвиее, операцию и компьютер должен выполнить эту операцию
< пробел > используется для пропусков между словом и символами
< backspace > стираем символы стоящие слева от курсора
< delete > стирает символы стоящие справа от курсора
< shift > испльзуется для ввода одной заглавной буквы путём удерживания <shift> в нажатом состоянии
< capslock > используется для ввода большого текста заглавными буквами
< ctrl > и <alt> используются в комбинации с другими клавишами
Var
a: array [1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
writeln('a[', i, '] = ', a[i]);
if a[i]<0 then s:=s+a[i];
end;
writeln('Сумма всех отрицательных элементов:', s);
<span>end.</span>