Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.
Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
<span>end.</span>
<h2>Код программы:</h2><h3>(пароль: 105)</h3>
program raf105;
const pass = 105;
var enterpass, x:integer;
begin
repeat
write('Введите пароль: ');
readln(enterpass);
if enterpass = pass
then
while 1=1 do
writeln('Молодец')
else x += 1;
until x=5;
end.
<h2>Результаты работы программы:</h2><h3>1.</h3>
Вывод: Введите пароль:
Ввод: 105
Вывод: Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец Молодец...
<h3>2.</h3>
Вывод: Введите пароль:
Ввод: 123
Вывод: Введите пароль:
Ввод: 106
Вывод: Введите пароль:
Ввод: 0
Вывод: Введите пароль:
Ввод: 104
Вывод: Введите пароль:
Ввод: 666