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;
}
}
}
По скрэтчу, да?
Объяснение:
1 - В
2 - Б