//PascalABC.NET 3.2 cборка 1318
Var
a,b,c:integer;
begin
readln(a,b,c);
if (a mod 5=0) and (c mod 5=0) and (b mod 5<>0) then
writeln(sqr(a),' ',sqr(b),' ',sqr(c)) else
if (a mod 5<>0) and (c mod 5<>0) and (b mod 5=0) then
writeln(a+10,' ',b+10,' ',c+10)
else
writeln((a+b+c)/3);
end.
Пример ввода:
15
5
34
Пример вывода:
18
Ответ:
a = input()
b = input()
if a % b == 0:
... print("divisible")
else:
... print("not divisible")
... - табуляция
If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
План решения везде одинаковый, т.к. эти системы однородные. В приложении решение двух - 10.8 и 11.8.
1) строим таблицу истинности для первого уравнения.
2) строим отображения пар друг в друга
3) выводим из отображений рекуррентные формулы
4) создаем расчетную таблицу количества битовых цепочек по рекуррентным формулам
5) в последнем столбце суммируем все полученные битовые цепочки и получаем ответ.