Результатом выполнения фрагмента алгоритма … a:=7; b:=8; k:=5+a; if a>b then k:=k*3 else k:=k-3; writeln (k); … будет следующее значение k: 7; 8; 9; 10; Верного ответа нет
Строчка "program Умножение;" спорная т.к. некоторые компиляторы поддерживают кириллицу, например PascalABC, но лучше использовать английские буквы.
"var A, B, C: boolean;" boolean - это логический тип переменных True False, либо 0 1, для других чисел не подходит. Я остановился на типе "real", чтобы можно было вводить не только целые числа, но и дробные, например 2,5
После каждого оператора необходимо ставить ";", кроме того, что перед "end" там ставить не обязательно.
В паскале "=" используется как оператор сравнения, а оператор присваивания выглядит так: ":=", поэтому исправим тут ошибку "C = A * B"
Текст в "writeln()" пишется в одинарных кавычках, исправляем ошибку "writeln (Произведение введенных Вами чисел равно , C)"
И так вот готовая исправленная программа
Program multi; Var A,B,C:real; Begin Read(A,B); C:=A*B; Writeln('Произведение введенных Вами чисел равно ',C) End.
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var n:=ReadInteger('n='); var m:=ReadInteger('m='); var d1,d2,d3,d4,d5,d6:integer; for var i:=n to m do begin d6:=i div 100000; d5:=(i mod 100000) div 10000; d4:=(i mod 10000) div 1000; d3:=(i mod 1000) div 100; d2:=(i mod 100) div 10; d1:=i mod 10; if (d1+d2+d3)=(d4+d5+d6) then Write(d6,d5,d4,d3,d2,d1,' ') end end.
"var A, B, C: boolean;" boolean - это логический тип переменных True False, либо 0 1, для других чисел не подходит. Я остановился на типе "real", чтобы можно было вводить не только целые числа, но и дробные, например 2,5
После каждого оператора необходимо ставить ";", кроме того, что перед "end" там ставить не обязательно.
В паскале "=" используется как оператор сравнения, а оператор присваивания выглядит так: ":=", поэтому исправим тут ошибку
"C = A * B"
Текст в "writeln()" пишется в одинарных кавычках, исправляем ошибку "writeln (Произведение введенных Вами чисел равно , C)"
И так вот готовая исправленная программа
Program multi;
Var A,B,C:real;
Begin
Read(A,B);
C:=A*B;
Writeln('Произведение введенных Вами чисел равно ',C)
End.
begin
var n:=ReadInteger('n=');
var m:=ReadInteger('m=');
var d1,d2,d3,d4,d5,d6:integer;
for var i:=n to m do begin
d6:=i div 100000;
d5:=(i mod 100000) div 10000;
d4:=(i mod 10000) div 1000;
d3:=(i mod 1000) div 100;
d2:=(i mod 100) div 10;
d1:=i mod 10;
if (d1+d2+d3)=(d4+d5+d6) then Write(d6,d5,d4,d3,d2,d1,' ')
end
end.
Тестовое решение:
n= 163702
m= 164701
163703 163712 163721 163730 163802 163811 163820 163901 163910 164029 164038 164047 164056 164065 164074 164083 164092 164119 164128 164137 164146 164155 164164 164173 164182 164191 164209 164218 164227 164236 164245 164254 164263 164272 164281 164290 164308 164317 164326 164335 164344 164353 164362 164371 164380 164407 164416 164425 164434 164443 164452 164461 164470 164506 164515 164524 164533 164542 164551 164560 164605 164614 164623 164632 164641 164650