<span>1) г)результативность
2)
</span><span>а = 6;
b =15;
a = b - a*2 = 15 - 6*2 = 15-12 = 3;
если а>b то c:=a+b иначе с := b - a
a>b </span>⇒ 3>15 ⇒ ложь ⇒ c = b-a = 15-3 = 12
Ответ: c = 12
Вот так можно решить
Program M;
var i : integer = 0;
pologitelnie : integer = 0;
otricatelnie : integer = 0; a : array[0..100] of Integer;
begin
repeat
begin
read (a[i]);
if (a[i]>=0) then
pologitelnie := pologitelnie + 1
else
otricatelnie := otricatelnie + 1;
i := i + 1;
end;
until a[i-1] = 0;
writeln('положительных: ', pologitelnie);
writeln('отрицательных: ', otricatelnie);
end.
1 байт = 8 бит.
128 бит = 128 / 8 байт = 16 байт
1 Кбайт = 1024 байт = 8192 бит
первый 0 означает что для вывода челой части будет использованно минимальное количество символов
второй 0 означает что число будет округляться до 0 знаков после запятой
а) if (a>100) and (b>100) then
write('ISTENO');
б) if (a mod 2 = 0) or (b mod 2 =0) then
write('ISTENO');
в) if (a > 0) or (b>0) then
write('ISTENO');
г) if (a mod 3 = 0) and (b mod 3 = 0) and (c mod 3 = 0) then
write('ISTENO');
д) if ((a<50) and (b>50) and (c>50)) or ((a>50) and (b<50) and (c>50)) or ((a>50) and (b>50) and (c<50)) then
write('ISTENO');
е) if (a<0) or (b<0) or (c<0) then
write('ISTENO');