Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var a,b,c,s:real; begin repeat write ('Введите длину гипотенузы c='); readln(c); write ('Введите длину катета a='); readln(a); write ('Введите длину площади s='); readln(s); if (c>b) and (c>0) and (b>0) then begin a:=sqrt(sqr(c)-sqr(b)); s:=(1/2)*b*c; write end.
Как по мне номер второй...
Удачи тебе!!!)
Ну незнаю в моем компютере восемь
Если ты имел ввиду num lock. то эта клавиша включает и выключает дополнительную секцию цифровых клавиш находящихся на клавиатуре в основном с правой стороны!!!
Var
n,s:longint;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
s:=n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n;
Writeln('Сумма цифр введенного числа равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 1745
Сумма цифр введенного числа равна 17