будте добры помогите с решением 43 и 48 задачки
5-9 класс
|
43:
var a, b, y: integer;
s: real;
begin
write('Введите a, b, y: '); readln(a, b, y);
s := (a * b * sin(y * pi/180)) / 2;
writeln('Площадь треугольника равна: ', s);
end.
48:
var v1, v2, t1, t2, s: real;
begin
write('Введите скорость лодки в стоячей воде: '); readln(v1); write('Введите скорость течения реки: '); readln(v2);
write('Введите время движения по озеру: '); readln(t1);
write('Введите время движения против течения: '); readln(t2);
s := v1 * t1 + (v1-v2)*t2;
writeln('Путь пройденный лодкой: ', s);
end.
Другие вопросы из категории
var a,b:integer;
begin
while a>b do
begin
writeln('Введите пару чисел');
readln(a,b);
end;
writeln('условие нарушилось');
end.
Найдите и исправьте ошибку в программе.
А) ток "бежит" по проводам
Б) запись на диск
В) цветок распускается
Г) птица поет
Читайте также
Из заданного текста выбрать и напечатать те символы, которые встречаются в нём ровно один раз.