...........................
Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами
program Znanija;
var n,a,i:integer;
begin
readln(n);
a:=n;
while(n > 0) do
begin;
i := i + 10 + n mod 10;
n := n div 10;
end;
if i mod 2 = 0 then
writeln('Сумма цифр числа ', a, ' - чётное число')
else
writeln('Сумма цифр числа ', a, ' - нечётное число');
end.
d[x][y] - это точка с координатами
0 < d[x] <2
0 < d[y] < 1
То есть d(x0,y0) и d(x,y)
x0 = y0 = 0;
x = 2; y = 1;
Var p,h,e,s,t,x: integer;
begin write('Введите стоимость проезда в 1 сторону: ');
readln(p);
write('Введите стоимость проживания в двухместном номере в сутки: ');
readln(h);
write('Введите стоимость питания в сутки: ');
readln(e);
write('Введите стоимость страховки: ');
readln(s);
write('Введите стоимость трансфера: ');
readln(t);
x:=p*2+h*7+e*7+s+t;
writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб');
<span>end.</span>
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("a = ");
double a = double.Parse(Console.ReadLine());
Console.Write("b = ");
double b = double.Parse(Console.ReadLine());
Console.Write("c = ");
double c = double.Parse(Console.ReadLine());
if (a > b) a = b;
if (a > c) a = c;
Console.WriteLine("Min = {0}",a);
Console.ReadKey();
}
}
}