Дан фрагмент линейного алгоритма. а : = 6 b : = 1 b : = a/2*b a : = 2*а + 3*b чему равно значение переменной a после его исполнения?
263
439
Ответы на вопрос:
или как вариант пишем программу :
var
a, b : real;
begin
a : = 6;
b : = 1;
b : = a/2*b;
a : = 2*a+3*b;
writeln('a = ', a);
end.
и получаем
a = 21
12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure tform2.button2click(sender: tobject); var i, j, k: integer; max: integer; begin with stringgrid1 do for j: = 0 to colcount - 1 do begin k: = 0; max: = strtoint(cells[j,0]); for i: = 0 to rowcount - 1 do begin if strtoint(cells[j,i]) > max then begin max: = strtoint(cells[j,i]); k: = i; end; end; stringgrid2.cells[j,k]: = '0'; end; end;
Популярно: Информатика
-
lizabezludnaya05.10.2022 00:53
-
adeka08821.04.2022 06:41
-
pedroluisfigoowupwm21.03.2022 16:24
-
dazacyhko24.02.2023 12:06
-
aksu407.09.2021 19:27
-
ого2316.06.2021 19:45
-
Arra123456625.10.2020 01:17
-
golubinbogdab20.02.2022 15:40
-
FrozeFre09.04.2020 03:26
-
ДжулиТян21.10.2022 17:21