Вpascal abc с циклического алгоритма for нужно решить: 1) найти количество чисел от a до b, делящихся без остатка на 3 и 4 одновременно. 2) вывести все двузначные числа, в записи которых есть цифра n. включить проверку на то, что n является однозначным числом.

var a,b,i,n: integer; begin      read(a,b);       for i: = a to b do            if i mod (3*4) = 0 then n: =n+1;       writeln(n); end.var n,i: integer; begin      for i: = 1 to 99 do begin            if (i div 10 < > 0) and ((i div 10 = n) or (i mod 10 = n)) then                  write(i,' ');       end; end.

Не уверен, что в 9 классе проходят массивы, уточни потом, переделаю, если что. program g; uses crt; var nums: array [1..10] of byte;     n: integer; count, i, k, equal, truth:   byte; begin   clrscr;   truth: =0;   writeln('введите число n (меньше или равное 9999).');   repeat   readln(n);   if n> 9999 then writeln('введено неверное число. повторите ввод.');   until n< =9999;   count: =0;   while n> 0 do   begin     inc(count);     nums[count]: =n mod 10;     n: =n div 10;   end;   for i: =1 to count do   begin     equal: =0;       for k: =i+1 to count do     if nums[i]=nums[k] then       inc(equal);     if equal=2 then truth: =1;   end;   if truth=1 then writeln('в числе совпадает три разряда.')     else writeln('в числе совпадает менее/более трёх разрядов.');   readln; end.

На самом деле, программа и правда из рук вон криво написана, начиная от простой понятности и лаконичности и заканчивая работоспособностью. рабочий вариант, если я правильно понял ваш код: program yolo; uses crt; var a: integer; i, n: byte; p: longint; begin     clrscr;   writeln('введите число и его степень.');   readln(a, n);   p: =1;   for i: =1 to n do   p: =p*a;   writeln('получившиеся число: ', p);   readln; end.4 в степени 3 будет равен 64.