Program pr_1; var x, y, sum, umn: integer; begin write ('x='); readln (x); write ('y='); readln (y); sum:=x+y; umn:=x*y; writeln ('sum=', sum); writeln ('umn=', umn); readln; end. Результаты работы внеси в таблицу для заданных x и y. x-46 y-40

var tl, tp, l, p: real;

     el, n: integer;

begin

print('Время, за которое лифт передвигается на 1 этаж');

readln(l);

print('Этаж, на котором находится лифт');

readln(el);

print('Время, за которое Катя поднимается на 1 этаж');

readln(p);

print('Нужный этаж');

readln(n);

tp := (n - 1) * p;

tl := (el + n - 2) * l;

println('Время на лифте:', tl);

println('Время по лестнице:', tp);

if tp > tl then

println('На лифте быстрее')

else

 if tp < tl then

 println('По лестнице быстрее')

 else

 println('Нет разницы');

end.

using System;

namespace NoNamespace.Task029 {

   //Напишите консольное приложение на C#, находящее пару чисел меньше N,  

   //сумма цифр которых одинакова, и сообщающее, если таких чисел нет

   internal class Program {

       private static void Main() {

           Console.WriteLine("Введите N");

           var n = int.Parse(Console.ReadLine());

           var sums = new int[n];

           sums[0] = 1;

           for (var i = 1; i < n; i++) {

               sums[i] = NumberSum(i);

           }

           var found = false;

           for (var i = 1; i < n; i++) {

               if (sums[i] == 0) continue;

               for (var j = i + 1; j < n; j++) {

                   if (sums[i] != sums[j]) continue;

                   Console.WriteLine($"Number sum {i} and {j} = {sums[i]}");

                   found = true;

               }

           }

           if (!found)

               Console.WriteLine("Nothing found");

           Console.ReadKey();

       }

       private static int NumberSum(int number) {

           var sum = 0;

           while (number > 0) {

               sum += number % 10;

               number = number / 10;

           }

           return sum;

       }

   }

}