For i=1 to 15
input a
s=s+a
next
? s
См. в прикрепленном файле
Вообще есть специальная программа HotPotatos - легко создаются кроссворды. Нужно только ввести вопросы, а программа сама составит кроссворд
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
repeat
write(a,' ');
a:=a+n
until a>b
end.
или
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
while a<=b do
begin
write(a,' ');
a:=a+n
end
end.
Прикрепил Exсel таблицу, решение a на 1 листе, б - на 2, в - на 3
Алфавитом девятеричной системы счисления являются следующие цифры: 0, 1, 2, 3, 4, 5, 6, 7, 8