Есть ответ 👍

Начертите блок схем площади квадрата и периметр квадрата ​

107
223
Посмотреть ответы 1

Ответы на вопрос:


Program zadanie1 (input, output); var a, b: integer; s: real; begin a: =1; s: =0; b: =0; while a < > 0 do begin read (a); s: =s+a; b: =b+1; end; s: =s/(b-1); writeln (s); end. program zadanie2 (input, output); var a, p, b, c, n, s: integer; begin a: =1; b: =0; c: =0; s: =0; read (n); repeat c: =a+b; b: =a; a: =c; s: =s+c; if s < n then p: =s; until s > n; writeln (p); end. program zadanie3 (input, output); var n, i: integer; a, b: real; begin read (n); a: =0; for i: =0 to n do begin a: =exp(i*ln(2)); if a < n then b: =a; end; writeln (b); end.

Популярно: Информатика