5)
program ex1;var x, y, z : integer;begin x:= 17; y:= -9; if x < y then z:= x * y else z:= y + x; writeln(z);end.
6)
program ex1;var x, tmp : real;begin readln(x); if x<=0 then tmp:=(sin(sqr(x)) - sqrt(power(x,3)+1))/(5*power(x,4)+ 3.5*x); if (x>0) and (x<=4) then tmp:=sqrt(x+sqrt(x+1))+4*x; if x>4 then tmp:= (1.44*abs(power(x,3)-1)-2.5*x)/(x+1);write(tmp);end.
7)
program ex1;var a,b,c:integer;begin readln(a,b,c); if (a>= -3) and (a<2) then write (' a '); if (b>= -3) and (b<2) then write (' b '); if (c>= -3) and (c<2) then write (' c ');end.
Акции ростелекома потому что разница конечной и начальной цены у неё больше чем у всех остальных
Ответ:
Компьютер
Объяснение:
К "О" - "М" и получаем КОМ
П[У]Т[Ь] - заменяем У на ЬЮ, Ь выбрасываем и получаем ПЬЮ
{С]ЕР[ДЦЕ] - выбрасываем то что в скобках и остается ЕР
<span>Налить в кувшин емкостью 8 литров 2 кувшина по 3 литра - будет 6 литров. Потом влить третий раз, и 8 литровый кувшин наполнится полностью. В 3 кувшине емкостью 3 литра останется 1 литр. Затем выливаем из 8 литрового кувшина полностью всю воду. Заливаем 1 литр - оставшийся в 3 литрвом кувшине и также потом заливаем 2 раза полных кувшина по 3 литра. получается, что будет как раз-то и семь литров. По-моему так.</span>
===== PascalABC.NET =====
begin
var (n, k) := ReadInteger2('Введите N и k:');
var s := 0;
n := Abs(n); // в условии не сказано, что число всегда подожительное!
while n > 0 do
begin
var d := n mod 10;
if d > k then
s += d;
n := n div 10
end;
Print(s)
end.
Есть такжен более короткое решение:
begin
var (n, k) := ReadInteger2('Введите N и k:');
var a := Abs(n).ToString.ToCharArray.Select(c -> c.ToDigit).ToArray;
a.Where(p -> p > k).Sum.Println
end.