В результате выполнения программы по данному алгоритму, получится 8
var s1,s2,a,b: integer; i: integer;begin s1:=0; s2:=0; a:=1; b:=3; for i:=a to b do begin if i mod 2=0 then s2:=s2+i*i else s1:=s1+i; end; s1:=s1+s2; writeln(s1);end.
Program Task;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x, y : real;
a, b : integer;
begin
a := 1;
b := 3;
read(x);
if (x < 2.3) then
y := exp(-b * x) * sin(b * x)
else if (x < 3) then
y := cos(b * x)
else
y := exp(-a * x) * cos(b * x);
writeln(y);
end.<span>
</span>
1) попробуй зайти в пуск
2) найди тоталл командер
3) найди папку неоткрываемые
4) и просто найди тот звук который тебе нужен.
(Подразумевалось, что министр откровенный, а не страна)
1) Если Россия - самая скрытная страна, то она оба раза солгала, тогда из ее утверждения следует противоречие(проект принадлежит России и Франции одновременно). Значит этот вариант не подходит.
2) Если Россия - самая откровенная, то проект принадлежит Китаю.
<span>Франция - откровенная страна, противоречие.</span><span>
3)</span> Если Россия - осторожная, тогда
а) Если первое утверждение верно, то проект принадлежит не России, а Франции, тогда Франция - тоже осторожная страна. Противоречие.
б) Если второе утверждение верно, то проект принадлежит России, тогда Франция - самая скрытная, а Китай - откровенная страна. Что удовлетворяет условию.
Ответ: России.
Program Geron;var
a, b, c, p, s: real;begin
readln(a, b, c); p := (a + b +c) / 2; s:= sqrt(p*(p - a)*(p - b)*(p -c )); writeln(s);
end.