Помогите решить 2 и 5 задачу плизз, очень надо! Оценочку именно эти не могу задания((

1

Ответы и объяснения

Лучший Ответ!
  • KGW
  • умный
2013-12-25T21:05:36+04:00
2)
Вариант 1
D=35
Вариант 2
S=25
K=10
5)
Вариант 1
Program goda;
var x:real;
begin
writeln('Введите ваш возраст');
readln(x);
if x>=18 then writeln('Вы можете голосовать') else writeln(18-x);
readln;
end.
Вариант 2
Program goda;
var x:real;
begin
writeln('Введите ваш возраст');
readln(x);
if x>=18 then writeln('Вы можете голосовать') else writeln(18-x);
readln;
end.
Вариант 2
Program goda;
var x:real;
begin
writeln('Введите ваш возраст');
readln(x);
if x>=18 then writeln('Вы можете голосовать') else writeln(18-x);
readln;
end.
Вариант 2
Program ugl;
var A,B,C:real;
begin
writeln('Введите углы');
readln(A,B,C);
if (a>90) or (b>90) or (c>90) then writeln('Тупоугольный'); 
if (a=90) or (b=90) or (c=90) then writeln('Прямоугольый'); 
if (a<90) and (b<90) and (c<90) then writeln('Острый');
readln; 

end.
Надеюсь на лучший ответ и спасибо:)