Sub () dim a, b as integer a = inputbox("введите а! ") b = inputbox("введите b! ") if (a > = 0 and b > = 0) or (a < 0 and b < 0) then msgbox ("знаки одинаковые") else msgbox ("знаки разные") end if end sub вот процедура на vba (на нем записываются макросы в microsoft office)и как-то так блок-схема рисуется : d
Пуск ввод a,b; если (a> 0 и b> 0) или (a< 0 и b< 0), то вывод: одинаковые, иначе вывод: разные; останов.
Спасибо
Ответ дал: Гость
4: 2
2|0
1|0
0|1
4₁₀=100₂
10: 2
5|0
2|1
1|0
0|1
10₁₀=1010₂
1996: 2
998|0
499|0
249|1
124|1
62|0
31|0
15|1
7|1
3|1
1|1
0|1
1996₁₀=11111001100
100.1010.11111001100
Ответ дал: Гость
program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )
Популярные вопросы