Файловий провідник, живлення, усі програми...
<span>1)
a:=-3
b:=(-3+2)*(-3+2)=1
a:=2*1-(-3)=5
2) Будет выведено число 1
</span>
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе
Создать переменную, в которой будем хранить сумму (допустим S). Затем обнулить её. Теперь создадим 2 вложенных цикла: по i от 1 до 5, а внутри него по j от 7-i до 5. Внутри второго цикла прибавляем к s элемент из строки i и столбца j. После этих циклов, в S будет содержаться ответ.
<span>будет напечатано в результате её выполнения - 24</span>