//"Школьный" вариант, блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111
Var
s,n,i:integer;
begin
readln(n);
s:=0;
for i:=1 to 3 do
begin;
s:=s+n mod 10;
n:=n div 10;
end;
if s mod 2=0 then writeln('Yes') else writeln('No');
<span>end.
Пример ввода:
123
Пример вывода:
Yes</span>
(b∧f)∨(c∧f)∨(f∧(¬a))∨(a∧(¬b)∧(¬c)∧(¬f))
При переводе числа 10101011 из 2-ной в 10-ую:
171
2 вопрос 3 способа 1 из а в з из а в б в д в е в з и внизу также
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y: real;
if x = 1 then
y := Ln(Abs(Sin(x)))
else if x = 2 then
y := Exp(x) + Sqrt(x)
else
y := 0.5 + Abs(x);
Println(y)
end.
Объяснение:
Формула для Х = 2 весьма дурацкая, потому что для положительного числа нет смысла брать его модуль: он всегда совпадает с числом. Посему модуль я убираю.