Тема:Программирование ветвлений - Pascal ABC

Формулировка задачи:

         p-3q,      если  p>=100;
f(p,q)=  p-2q,      если 0<p<100,q<20;  
         p+q/2q,    в остальных случаях;


textual

Код к задаче: «Тема:Программирование ветвлений - Pascal ABC»

var p,q,f:real;
begin
writeln('Ведите p,q');
readln(p,q);
if p>=100 then f:=p-3*q
else if(p>0)and(p<100)and(q<20) then f:=p-2*q
else f:=p+q/2/q;
write('f=',f:0:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.091 из 5

Источник
Похожие ответы
Для поиска решения или похожих решений вы можете воспользоваться "Поиском по сайту" или "Поиском по разделу"
Поиск по сайту