Необходимо перевести Робота из начального положения (◊) в точку A, закрашивая при этом указанные клетки поля. Размеры стен и расстояние между ними могут быть произвольны нц-пока-кц
1.var a,b:integer; begin writeln('введите числа (0 признак окончания ввода)'); readln(a); b:=1; while (a<>0) do begin readln(a); if (a mod 2 = 0) and (a<>0) then b:=b*a; end;writeln('произведение чётных чисел последовательности ',b); end. 2.var a,b:integer; begin b:=0; a:=1; while (a<=10000) do begin if (a mod 10 = 0) then b:=b+1; a:=a+1; end; writeln('количество круглых чисел ',b); end. 3.var a,b:integer; begin writeln('введите числа (1 признак окончания ввода)'); readln(a); b:=0; while (a<>1) do begin readln(a); if (a mod 7 = 0) then b:=b+1; end; writeln('цифра 7 встречается ',b,' раз'); end. 4.var a,b:integer;begin writeln('введите числа (0 признак окончания ввода)'); b:=0; a:=1; while (a<>0) do begin readln(a); if (a<>0) then b:=a*a+b; end;writeln('сумма квадратов ',b); end.
Не совсем понял о какой таблице речь.
Представляем буквы числами от 0 до 4. А-0, Р-1, У-2, К-3, О-4
получается список на первом месте которого 00000, а на последнем 44444
Переводим последнее число из пятеричной системы счисления в десятеричную и прибавляем единицу (т.к. отсчет начинается с нуля, а нумерация с 1)
Получаем: Всего 3125 комбинаций
По той же логике на 517 месте стоит число 516.
Переводим его в пятеричную систему - 04031
Подставляем вместо цифр буквы.
Под номером 517 находится комбинация - АОАКР
Теперь обратное, вместо букв цифры - 32143
Переводим в десятичную систему и прибавляем 1.
Курок находится под номером 2174