Помогите решить 17 и 18 вариант

Question

Помогите решить 17 и 18 вариант

---

Comments

С=А2+В2 - Это А в квадрате плюс В в квадрате?

Answer 1

Var A,B,i:integer;
Begin
For i:= 1 to 7 do
    Begin
    Write('A = ');ReadLn(A);
    Write('B = ');ReadLn(B);
    WriteLn('C = ',A*A+B*B);
    End;
End.



Var A,B,i:integer;
Begin
For i:= 1 to 7 do
    Begin
    Write('A = ');ReadLn(A);
    Write('B = ');ReadLn(B);
    WriteLn('C = ',sqr(A+B));
    End;
End.

Comments

Должны быть

---

Блох-схема?

---

Да

---

И текс программы

---

Ну текст программы это и есть Паскаль

---

Текс не в паскале

---

На бейсике? На С++ ? На питоне? На КуМире??

---

На бейсике

---

Извини, на бейсике не умею

---

Все спасибо. За хоть какую та помощь до меня дошло