Информатика

Йоу , ребята, помогите!!!
Задания для "pascal turbo"
нужно решить и расписать для программы


<< Предыдущий вопрос Следующий вопрос >>

1.

var

 x,f:real;

begin

 x:=3;

 f:=sqr(x)+1;

 f:=6*sqr(x)+3*sqr(f);

 writeln('F = ',f);

 end.
F = 354


3.


var


 a,b,sum,raz,pro:real;


begin


 writeln('Введите два числа');


 readln(a,b);


 sum:=a+b;


 raz:=a-b;


 pro:=a*b;


 writeln('Cумма = ',sum,' Разность равна
',raz,' Произведение =
',pro);


 end.





Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы