Написать программу, которая запрашивает ввод двух целых чисел и проделывает над ними операции умножения и деления
124
403
Ответы на вопрос:
Program a1; var a,b,c,d: real; begin write ('a='); read (a); write ('b='); read (b); c: =a*b; d: =a/b; writeln ('a*b=',c: 0: 2,'; a/b=',d: 0: 2) end.
// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! 1) begin var (n,m): =readinteger2('количество строк и столбцов в массиве: '); writeln('*** исходный массив [',n,',',m,'] ***'); var a: =matrrandom(n,m,-99,99); a.println(4); writeln(4*a.colcount*'-'); var b: =a.rows.select(r-> r.where(t-> t.isodd).lastordefault); b.println; end. пример количество строк и столбцов в массиве: 8 5 *** исходный массив [8,5] *** -41 36 -99 14 17 -22 12 71 -94 -42 -35 -40 26 2 24 39 17 20 11 84 -53 -18 97 -6 5 2 67 -54 -6 -3 95 -87 90 -13 -37 -81 -21 61 -90 -60 17 71 -35 11 5 -3 -37 61 2) begin writeln('*** исходный массив ***'); var a: =matrrandom(20,10,2,5); a.println(2); writeln(2*a.colcount*'-'); writeln('ср. 5-го ученика: ',a.row(4).average) end. пример *** исходный массив *** 2 2 3 3 4 3 4 2 3 2 4 3 2 3 2 4 3 2 5 3 4 2 3 3 4 5 5 2 2 4 5 2 4 2 4 5 4 2 3 3 5 3 3 2 3 4 5 4 4 4 3 2 3 2 3 2 5 2 4 4 4 4 5 5 2 4 5 5 4 2 2 2 5 4 4 2 4 3 2 2 2 2 4 4 2 4 4 4 5 4 2 3 4 4 5 3 3 4 5 4 5 2 5 3 3 2 3 5 3 2 3 4 2 3 4 3 2 3 4 3 2 2 2 2 2 4 4 2 4 2 5 2 3 3 3 5 3 2 2 5 2 4 2 4 3 3 3 2 5 4 3 2 5 4 4 4 5 5 3 5 4 3 2 3 3 2 2 4 2 4 2 5 2 5 2 3 2 4 5 4 3 3 2 2 5 4 3 5 4 4 2 3 5 3 3 5 4 5 2 2 ср. 5-го ученика: 3.7
Популярно: Информатика
-
1230987410.04.2023 18:21
-
bubo4ka99517.12.2022 18:21
-
Антонggez26.02.2021 01:13
-
Золушка44414.02.2021 05:09
-
siylvio13.08.2021 09:55
-
kafdiana901.01.2020 12:02
-
Belgorodov3323.05.2022 08:28
-
SlavaKirja05.02.2023 23:38
-
Anny240413.06.2020 14:27
-
stasleraz30.05.2022 00:14