// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.
#include <iostream>
using namespace std;
int main() {
int a,b,c;
cin >> a >> b >> c;
cout << ((a/100)==0 && (b/100)==0 && (c/100)==0) << endl;
}
В вашу исходную программу, после Task('cif2'); надо добавить следующие строки, задающие алгоритм действий для робота:
while FreeFromRight do
begin
Right;
if WallFromUp then Paint;
if WallFromDown then Paint;
end;
Или, можно ещё немного сократить, объединив два условия в одном if (если вы уже проходили логические операторы OR):
while FreeFromRight do
begin
Right;
if WallFromUp or WallFromDown then Paint;
end;