4 года назад

Дано натуральное число. найдите первую цифру числа. 0

1 ответ:

0 0

Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.

Читайте также

Написать код программы решения в Паскале: два треугольника заданы координатами своих вершин. Вычислите их площади по формуле S=1

Anastasiya-Fed

==== PascalABC.NET =====

begin

var (x1, y1) := ReadReal2('Координаты х и у вершины 1:');

var (x2, y2) := ReadReal2('Координаты х и у вершины 2:');

var (x3, y3) := ReadReal2('Координаты х и у вершины 3:');

Print('Площадь треугольника равна',

0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))

end.

0 0

3 года назад

Помогите решить задачу в паскале под цифрой 8 , пожалуйста. Заранее спасибо.

Катерина24344

Const
pi=3.14159265359;

function Angle(x:real):real;
{ возвращает угол в градусах по значению его синуса }
begin
Angle:=ArcTan(x/Sqrt(1-x*x))*180/pi;
end;

var
a,b,c,h,alpha,beta,gamma,S,P:real;

begin
Writeln('Введите a,b,h: '); Read(a,b,h);
c:=Sqrt(a*a-h*h)+Sqrt(b*b-h*h);
P:=a+b+c;
S:=h*c/2;
alpha:=Angle(h/b);
beta:=Angle(h/a);
gamma:=180-alpha-beta;
Writeln('c=',c:0:5);
Writeln('alpha=',alpha:0:3,', beta=',beta:0:3,', gamma=',gamma:0:3);
Writeln('P=',P:0:5,', S=',S:0:5)
end.

<u>Примеры</u>
Введите a,b,h:
5 5 3
c=8.00000
alpha=36.870, beta=36.870, gamma=106.260
P=18.00000, S=12.00000

Введите a,b,h:
5 5 4
c=6.00000
alpha=53.130, beta=53.130, gamma=73.740
P=16.00000, S=12.00000

0 0

4 года назад

Какой тип имеет переменная b в выражения: b=(45+10.5*2-10) div 2? 1)Вещественный 2)Логический 3)Целый 4)Строковой

Tatyana-P

1) вещественный, ибо есть число с плавающей точкой

0 0

4 года назад

Напишите программу в Паскаль пожалуйста y=x+5/x-3 (x-3)<>0

Dude2012 [6]

1) program abc;
var x, y: integer;
begin
read(x);
y:=(x+5)/(x-3)
write(y);

0 0

3 года назад