a = -3
b = -4 * (-3) - 6 = 12 - 6 = 6
x = 16
y = 3+8 = 11
если (-22 < 11) и (5 - 12 > - 5) - неверно, пропускаем
если (-6 + 11 > -1) или (15+6 < 16) истинно первое выражение
то x = 4, y = 1
Вывод x(4).
Ответ 4
S:string;
k, i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (ord(s[i])>64) and (ord(s[i])<91) then k:=k+1;
if (ord(s[i]>95) and(ord(s[i])<123) hen k:=k+1;
writeln(k);
readln;
end.
<u>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
MatrGen(n,n,(i,j)->(i>j) and (i<n-j-1) or (j>n-1-i) and (j>i)?1:0).Println(1)
end.
Использовать Чертежник
алг
нач
сместиться в точку (-3, 5)
опустить перо
сместиться в точку (0, 7)
сместиться в точку (0, 0)
поднять перо
сместиться в точку (2, 6)
опустить перо
сместиться в точку (2, 7)
сместиться в точку (5, 7)
сместиться в точку (5, 3)
сместиться в точку (2, 3)
сместиться в точку (5, 3)
сместиться в точку (5,-1)
сместиться в точку (2,-1)
сместиться в точку (2, 0)
кон
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(15,-50,50).Println.Average.Println
end.
<u>Пример</u>
10 -46 20 -5 -23 -27 -16 26 42 -28 -24 -25 20 49 -27
-3.6