Program GOVNO; var c, Q, m, t1, t2:integer; x1, x2, x3:integer; begin writeln ('введите значение Q'); readln (Q); writeln ('введите значение m'); readln (m); writeln ('введите значение t1'); readln (t1); writeln ('введите значение t2'); readln (t2); x1:=Q; x2:=m; x3:=t2-t1; c:=x1/(x2*x3); <= Проблема здесь end. Program1.pas(16) : Нельзя преобразовать тип real к запустить программу

Поменяй '/' на 'div'

CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
DIM a(n)
h=30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
IF INT ((a(n) - 4 ) / 10) = ((a(n) - 4) / 10) AND a(n) < h THEN h = a(n)
NEXT i
PRINT h
END
или:
n - количество чисел
i - цикловая переменная
a  - натурально число
min  - минимальное число, оканчивающееся на 4
Язык програмирования: Паскаль
var
n,i,a,min: integer;
begin
readln(n);
min := 30001;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 4) and (a < min) then
min := a;
end;
writeln(min)
end.

#include <iostream>

#include <list>

int main()

{

   std::list<int> numbers;

   int x= 0;

   std::cin >> x;

   do {

       int k = x % 10;

       x /= 10;

       numbers.push_back(k);

   } while (x > 0);

   

   for (int n : numbers) {

       std::cout << n<<"\n";

   }

   return 0;

}

Класс list

Класс списка стандартной библиотеки C++ — это шаблон класса контейнеров последовательностей, который сохраняет свои элементы в линейном упорядочении и позволяет выполнять операции вставки и удаления в любом расположении в последовательности. Последовательность хранится в виде двунаправленного связанного списка элементов, каждый из которых содержит элемент какого-либо типа Type .