Регистрация
Sladkayaaaaaa
08.12.2022 23:28
Информатика
Есть ответ 👍

Определите значение переменной a после исполнения следующего алгоритма a: =3 b: =2 b: =9+a*b a: =b: 5*a

185
429
Посмотреть ответы 2

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

orixara1
orixara1
4,6(84 оценок)
A=1,2 b = 15 вот ответ
llllllllllllll1
llllllllllllll1
4,8(89 оценок)
1) var n, odd, even, i, a: integer; begin odd: =0; even: =1; writeln ('введите число n'); read(n); writeln('введите n целых чисел'); for i: =1 to n do begin read(a); if (a mod 2 = 0) then even: =even*a else odd: =odd+a; end; writeln('произведение чётных чисел равно ', even); writeln('сумма нечётных чисел равна ', odd); end. 2)var n, plus, minus, i: integer; a: real; begin plus: =0; minus: =0; writeln ('введите число n'); read(n); writeln('введите n чисел'); for i: =1 to n do begin read (a); if(a > 0) then plus: =plus+1; if (a < 0) then minus: =minus+1; end; writeln('количество положительных чисел равно ', plus); writeln('количество отрицательных чисел равно ', minus); if (plus< minus) then writeln ('отрицательных больше чем положительных на ', minus-plus); if (plus> minus) then writeln ('положительных больше чем отрицательных на ', plus-minus); if (plus=minus) then writeln ('количество положительных равно количеству отрицательных'); end.

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