ДО ІТЬ БУДЬ ЛАСКА Напишіть програму для перетворення висоти (вказуємо окремо у футах (1 фут = 30,48см) і дюймах (1 дюйм=2,54см) у сантиметри. Вхідні дані: Футів: 10, Дюймів: 5 Вихідні дані: 318 см.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var x,a,x1,x2,delta,lambda,y:real; Write('Введите границы изменения аргумента и шаг: '); Read(x1,x2,delta); a:=1.44; x:=x1; repeat lambda:=Sqr(Tan(x*a/2*pi)); y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3); Writeln('x=',x,' y=',y); x+=delta until x>x2 end.
Тестовое решение Введите границы изменения аргумента и шаг: 1.2 2.0 0.2 x=1.2 y=1.63776729113963 x=1.4 y=1.81249323168809 x=1.6 y=2.04691849426225 x=1.8 y=2.40906764678559 x=2 y=4.09613421404126
begin Write('Количество строк массива: '); ReadLn(n); Write('Количество столбцов массива: '); ReadLn(m); for i := 1 To n Do begin for j := 1 To m Do begin Write('Введите элементы массива A[', i, ',', j, ']='); ReadLn(A[i, j]); end; end;
WriteLn('Итоговый массив:'); for i := 1 to n do begin for j := 1 to m do begin A[1, j] := 111; A[i, 2] := 222; Write(' A[', i, ',', j, ']=', A[i, j], ';') end; WriteLn; end; end.
Задание можно озвучить так: Создать массив целых чисел, заполнить его вручную. Заменить все элементы первого рядка на 111 и все элементы второго столбца на 222. Вывести итоговый массив.
ответ: Код:
# Зчитуємо вхідні дані
feet = int(input("Футів: "))
inches = int(input("Дюймів: "))
# Обчислюємо висоту в сантиметрах
height_cm = feet * 30.48 + inches * 2.54
# Виводимо результат
print("Висота:", height_cm, "см.")
Объяснение: