Категория
Информатика, опубликовано 07.04.2019 23:30

Написать программу паскаль: y=x^2+b^2 заранее ))

Ответы

Ответ
Ответ оставил: Гость
Var x,b,y: integer; beginwrite('x = '); readln(x); write('b = '); readln(b); y: =x*x+b*b; writeln('y = ',y); end.пример: x = 5b = 8y = 89
Ответ
Ответ оставил: Гость
Var a,b,c,d,x: real; begin         writeln('введите a,b,c');         readln( a,b,c );         d: =sqr(b)-4*a*c;         if d< 0 then begin              writeln('действительных корней нет');         end else if d=0 then begin               x: =(-b)/2*a;               writeln('корень уравнения: ',x);         end else begin              x: =(-b+sqrt(d))/2*a;               writeln('1-й корень уравнения: ',x);               x: =(-b-sqrt(d))/2*a;               writeln('2-й корень уравнения: ',x);         end end.
Ответ
Ответ оставил: Гость
1. Нет
2.Да
3.ДА
4.нет
5.Да
Ответ
Ответ оставил: Гость
Всего можно составить шесть двузначных чисел: 12,13,21,23,31,32. их сумма равна 152
Ответ
Ответ оставил: Гость
1)
var n,i:integer;
begin
Read(n);
for i:=1 to n do
 write(i,); 
end.

2) Функция:
 function nod(a, b: Integer): Integer;
Var t: Integer;
Begin
    If b > a Then
    Begin
        t := a;
        a := b;
        b := t;
    End;
    t := a;
    While t > 0 Do
    Begin
        Result := t;
        t := t- b;
    End;
End;



Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 3 на вопрос по информатике: Написать программу паскаль: y=x^2+b^2 заранее ))... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube