writeln('Сумма первых двух цифр вашего числа = ',a)
end.
P.s:Предположил, что язык выполнения - Pascal.
1 votes Thanks 1
AlekstosSim
Копировал формулу, потому и не заметил.
shpoone593
Нужно написать программу в языке Паскаль. Расстояние d между точками А(х1 у1) и В(х2 у2) вычисляется по формуле d=√(x2-x1)^2+(y2-y1)^2 Вычислите АВ. Срочно
AlekstosSim
program Ninf; var x1,x2,y1,y2,s:real; begin write('A(');read(x1);write(';');read(y1);write('), ');write('B(');read(x2);write(';');read(y2);writeln(')');s:=sqrt(sqr(x2-x1)+sqr(y2-1));writeln('AB = ',s) end.
AlekstosSim
Срочно не выходит. Я всё же люблю программирование, но не настолько чтобы заниматься этим во время диагностике по математике.
shpoone593
Привет. У нас в 10:30 будет с.р. по информатике. Сможешь помочь? Пожалуйста. Можешь дать свой Watsup или вк?
AlekstosSim
День добрый, увы, но я сильно завален работами по биологии и географии (элементарными, преимущественно механического характера). Помочь буду не в силах. И, вероятно, я уже опоздал с ответом, т.к. оповещение о комментарии мне только пришло, хотя сам коментарий был оставлен час назад.
Answers & Comments
№2
program n2;
var a,b,y:real;
begin
readln(a);
b:=sqrt(sqt(a)+1);
y:=abs(b+5)/sqr(b);
writeln(y)
end.
№3
program n3;
var a,b:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
b:=a div 100;
a:=a div 10;
a:=b+a;
writeln('Сумма первых двух цифр вашего числа = ',a)
end.
P.s:Предположил, что язык выполнения - Pascal.