Меню сайта

Задача №23

Одночисло в 2 раза больше другого, а их сумма равна 93. — Найти эти числа.

uses crt-

varsumma,raz,st,storona1,storona2:real-

begin

ClrScr-

writeln(‘Введите сумму двух чисел’)-

readln(summa)-

writeln(‘Введите во сколько раз одно больше другого’)-

readln(raz)-

st:= summa / (raz +1)-

storona1:= st-

storona2:= st *raz-

write (‘1 число-‘,storona1:7:2,’ ед.’)-

write (‘2 число-‘,storona2:7:2,’ ед.’)-

end.

Категория: Линейные программы | Дата: 29.11.12

Меню раздела
Блок