X - (x - 18) div 3 = 69
x - 69 = (x - 18) div 3
0 <= (x - 18) - 3(x - 69) < 3
0 <= -2x + 189 < 3
0 >= 2x - 189 > -3
189 >= 2x > 186
94.5 >= x > 93
поскольку в целых числах, то х = 94
Uses crt;
var a,b,c,s,k : integer;
begin
writeln('Введите 3 числа :');
readln(a,b,c);
if a > 0 then
begin
k:= k + 1;
s:= a;
end;
if b > 0 then
begin
k:= k + 1;
s:= s + b;
end;
if c > 0 then
begin
k:= k + 1;
s:= s + c;
end;
writeln('Сумма чисел = ' , s);
writeln('Количество положительных чисел = ', k);
end.
Возможно 3 варианта перемещения:
ABCE - длина = 6
ABDE - длина = 7
ABE - длина = 8
Правильный ответ №2: кратчайший путь: ABCE = 6
1.
integer: b, d;
real : e,h;
bool: c,j;
char: A, f, j , i;
2.
256
3.
a = 32
4.
a = 40
5.
b = 48
Program chisla;
var a,b:integer;
begin
read (a);
if
b=a div 2 then
write('Число четное') else
write('Число нечетное');
end.