Число заносите в ячейку А1 в ячейку В1 пишете формулу =A1*((A1>=850)*0,10+(A1>=6000)*0,05)
во вложении экселевский файлик с решением
Нет, в схеме масса (я насчитал 3) ошибки.
1) 2 безусловных ветвления из одного места не могут быть
2) ромбик как условный опоератор должен иметь 2 исзодящих стрелки
3) третий прямоугольник лишён исходящей стрелки, она должна вести в блок КОНЕЦ
//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
Var
ar1,ar2:array[1..n] of integer;
i,k,m:integer;
begin
writeln('Reading array A:');
for i:=1 to n do
readln(ar1[i]);
writeln('Reading array B:');
for i:=1 to n do
readln(ar2[i]);
writeln('Res:');
for i:=1 to n do
if ar1[i]>5 then
begin
writeln(i);
break;
end;
for i:=1 to n do
if odd(ar2[i]) then
begin
writeln(ar2[i]);
break;
end;
end.
Пример ввода:
Array A:
1
2
4
5
9
Array B:
1
4
7
9
13
Пример вывода:
Res:
5
1
-это 1. растровая графика
<span>99=10011001 в двоичной системе. класс сети B.
99.37.0.0 - адрес сети
0.0.125.186 - адрес компьютера в сети</span>