Предмет: Информатика,
автор: ДЕСПАСИТО18
Спасите!!!
В парке растет k хвойных деревьев: сосен – m деревьев, и это на 14 больше, чем елей, кипарисов – на z больше, чем лиственниц, а лиственниц и елей поровну. Остальные деревья – кедры. Сколько кедров растет в парке?
k, m, z вводятся с клавиатуры. Подумайте, какими они могут быть!!! ъ
ДАЮ 60 БАЛЛОВ
Ответы
Автор ответа:
0
uses crt;
var
k , m ,z,c,x,rez,ked:integer;
begin
clrscr;
writeln('введите число деревьев');
readln(k);{число деревьев}
writeln('введите сколько сосен');
readln(m);{сосны}
if m>13 then begin
c := m-14;{ели}
writeln('введите на скоко больше кипорисов чем листвениц');
readln(z);
x:=c;{лиственицы}
rez:=c+z+x;{сумма}
ked:=k-rez;
writeln('кедров ',ked);
end
else writeln('ошибка сосен должно быть больше 13');
end.
все незачто
ну по сути легкая задача
Похожие вопросы
Предмет: Биология,
автор: karimovamuslima006
Предмет: Литература,
автор: akbarovalena044
Предмет: Информатика,
автор: FDYDSYUH
Предмет: Математика,
автор: garage1986666