Регистрация
derkioptu
15.07.2020 04:11
Информатика
Есть ответ 👍

Определить значение переменной а после выполения следующего алгоритма
a := 9
b := a mod 5
b := b*10
a := b div 5 - 3

143
147
Посмотреть ответы 2

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

coolvikusa46
coolvikusa46
4,5(79 оценок)

a := 9  //a=9 , b=0

b := a mod 5  //a=9 b=4

b := b*10  //a=9 b=40

a := b div 5 - 3 //a=5 b=40

a=5

sashokko
sashokko
4,6(41 оценок)

uses crt;

type

massiv = array [1..100] of integer; // объявляем свой тип данных

var

mass : massiv ;

sum, proiz , i , n: integer;

begin

clrscr;

write('Введите длину массива : '); readln(n);

sum := 0 ;

proiz := 1 ; // единица потому что у нас умножение, если умножать на 0 будет 0 всегда!!

for i:=1 to n do

begin

write('Введите ', i , ' элемент : '); readln(mass[i]);

if (mass[i] mod 2 = 0) then sum := sum + mass[i]

else proiz := proiz * mass[i];

end;

writeln('Сумма четных равна ', sum);

writeln('Произведение нечетных равно ', proiz);

readln; // чтобы программа не закрывалась

end.

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