КНОПКА КОТОРАЯ ВКЛЮЧАЕТ РЕЖИМ ЗАГЛАВНЫХ БУКВ-CapsLock
import random
x = random.randint(100,999)
print('Полученное число: ' + str(x))
d1 = x % 10
x = x // 10
d2 = x % 10
x = x // 10
d3 = x % 10
print(d3,d2,d1)
Как я понял, ответы на 2 и 3 вы уже нашли на каком то другом сайте, а примеры к 1 то же самое произведение Лескова "Тупейный художник", где Нашему Аркадию поручают прихорашивать актрис, то есть от 1 до последний делать одно и то же). а из предметной области, наказание учителем прогулявший класс, где от 1 до кол-ва прогулявших ставить "2". Надеюсь примеры подойдут
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
СПОСОБ С ЦИКЛАМИ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифм. прогресии:');
Readln(n);
For i:=1 to n do a:=a+d;
Writeln(n, ' член арифметической прогресии равен : ', a);
End.
СПОСОБ БЕЗ ЦИКЛОВ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифметической прогресии: ');
Readln(n);
Writeln(' ответ: ', a+d*(n-1));
End.