Есть ответ 👍

Составить программу, вычисления площади прямоугольника, если известно 2 стороны a и b. информатика, паскаль

263
489
Посмотреть ответы 2

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


program task1;

var a,b,s: real;

begin

readln(a);

readln(b);

s: =a*b;

writeln('площадь: ', s);

end.решение от тутути не верно, s=a*b 

Salekhova58
4,4(90 оценок)

Option base 1 dim a(10) as single, b(10) as single, x(10) as single randomize timer for i = 1 to 10     a(i) = 30 * rnd - 15 next i for i = 1 to 10     b(i) = 40 * rnd - 20 next i cls print "a", "b", "x" for i = 1 to 10     if a(i) = 0 then           x(i) = 1e+10     else           x(i) = b(i) / a(i)     end if     print a(i), b(i), x(i) next i тестовое решение: a                        b                        x -5.504717          19.41665        -3.527274 -5.233851        -11.24631          2.148764 -5.154725          2.927625        -.5679499   5.057724        -8.649354        -1.710128 -6.304109        -19.25289          3.054023 -1.920151          6.061134        -3.156593 -10.34241          17.10881        -1.654238   13.86053          .4965448          3.582438e-02 -4.931755          8.241055        -1.671019   8.120502          8.78438            1.081753

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