Program aaa;
uses crt;
var a,b,c:integer;
x, y: real;
begin
writeln(' Vvedite a ');
readln(a);
writeln(' vvedite b ');
readln (b);
wriateln(' Vvedite c' );
readln (c);
x:=((2*a^2-b)/(3*c));
y:=(sqrt(x+c^2)+4*a*b);
writeln( 'x=', x, 'y=', y);
<span>end.
Вот программа, к сожалению, паскаля на компе у меня нет, поэтому, думаю, ты сам справишься с подготовкой программы к запуску и тестированию
</span>
===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
begin
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
begin
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
end.
-3-
begin
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
end.
на глиняных табличках,а вид письма клинопись
Да очень просто: переписываешь на какой-нибудь вменяемый язык, выполняешь и смотришь результат.
javascript:function F(n){return(n>1?F(n-1)+G(n-1):n+1);}function G(n){return(n>1?G(n-1)+F(n):n-1);}alert(F(5));
Даёт 26.
Пост.............................