Ребят,нужно написать программу в паскале А,В,С.
5-9 класс
|
Дан прямоугольный треугольник с катетами a и b,найдите его гипотенузу.
Program g1;
var a,b,c:integer;
begin
writeln("Введите первый катет");
readln(a);
writeln("Введите второй катет");
readln(b);
c:=sqr(a)+sqr(b);
c:=sqrt(c);
writeln("Гипотенуза равна: ",c);
end.
Вот держи
Другие вопросы из категории
Марина Яблочкова Катя Арбузова, Валя Стрелкина Роберт Щукин, Коля Белкин, Лена Волкова. Дима Иволгин,Серёжа Тополёв, Яша Арбузов
Дано целое положительное число n.
Составить программу, которая, если число четное, выведет последнюю цифру этого числа.
y=arctg(bx)/1+sqrt(a*x)
а=7.38, b=0.3ч
Читайте также
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.
1. Написать программу нахождения произведения n чисел.