Если можете то можно объяснить? укажите минимальное натуральное число, при вводе которого этот алгоритм напечатает число 11. var x, a, b, d: longint; begin readln(x); a : = 0; b : = 10; while x > 0 do begin d : = x mod 7; if d > a then a : = d; if d < b then b : = d; x : = x div
7 end; writeln(a+b) end.
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
readln(a);
b:=a+a;
writeln (b);
end.
Program50.pas(5) : Неизвестное имя 'b'
2. Попробуем такой вариант на Python
a =int(input())
b = a+a
print(b)
При вводе а получим на выходе 10
Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
readln(a);
var b:=a+a;
writeln (b);
end.
Рузультат при введенном значении 5 равен 10