Решить на языке pascal : среди всех двузначных чисел найти двузначное число, равное утроенному произведению его цифр.

var i: integer;

begin

for i: =10 to 99 do

if i=3*(i div 10)*(i mod 10) then writeln(i);

end.

Program sp; var   x,y: real; // стороны прямоугольника   s: real;     // площадь прямоугольника   p: real;     // периметр прямоугольника   procedure rectsp(a,b: real; var s,p: real); begin   s : = a * b; //нахождение площади   p : = a + b; //нахождение суммы end; begin   writeln('введите стороны прямоугольника: ');   readln(x,y);   rectsp(x,y,s,p);   writeln('площадь равна ',s); //вывод площади   writeln('периметр равен ',p); //вывод периметра end.

Диспетчер принимает заказ на такси.  принимает звуковую информацию, содержащую адрес подачи такси время  и адрес назначения. правило: в соответствии с полученной информацией производит поиск по базе свободных таксистов и производит расчет стоимость по заданной формуле.  затем передает адреса и время таксисту а стоимость и номер машины клиенту. бабушка просит внучку включить на телевизоре какую-нибудь передачу про здоровье. получена звуковая информация, содержащая сообщение с - переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье. правило:   переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.