Составить программу, вычисления площади прямоугольника, если известно 2 стороны a и b. информатика, паскаль
263
489
Ответы на вопрос:
program task1;
var a,b,s: real;
begin
readln(a);
readln(b);
s: =a*b;
writeln('площадь: ', s);
end.решение от тутути не верно, s=a*b
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
Популярно: Информатика
-
mrdrozdovoy22807.07.2021 10:49
-
21Алина11101.10.2021 19:21
-
SOV2010.03.2021 10:18
-
darivorobey08.01.2021 16:41
-
oxpoluhina201714.09.2022 03:40
-
serdecsofia22.07.2021 12:36
-
marisshechka113.02.2023 03:08
-
ggggggft07.10.2021 08:01
-
volkovhavoc12.05.2022 22:08
-
straer12212203.04.2020 18:50